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AB8TMCT 


Heat transfer performance of steam condensing on 
horizontal finned tubes made of copper, aluminvim, copper 
nickel(90/10), and stainless steel(316) was studied using a 
condenser test rig at both vacuum and atmospheric conditions. 


Integral fin tubes included conventional rectangular shaped 
fins as well as rectangular fins having a radiussed root 
geometry (ie, a fillet radius equal to half the fin spacing) . 
All finned tubes had inner and outer diameters of 12.70mm and 
15.88mm respectively, and had a fin thickness of l.Omm and a 
fin spacing of l.5mm. The overall heat transfer coefficient 
(Uq) was determined experimentally and the outside heat 
transfer coefficient (h^) was obtained utilizing a modified 
Wilson Plot procedure. 

Results indicated that the performance of a finned tube 
was strongly dependent on the tube material and weakly 
dependent on fin geometry. Radiussing the fin root to remove 
condensate between fins in the unflooded portion (ie, top 
portion) of a finned tube reduced the heat transfer 
performance compared to a conventional rectangular shaped 
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integral fin. Experimental data were compared to the models of cra&i 

TAB 

Beatty and Katz as well as to a modified model of Rose. Unanno. ct-d 
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I. IMTRODUCTZOM 

A. BACXORODIID 

With the end of the Cold War, the major interest in the 
U.S. today is to balance the budget. Part of this process is 
the reduction of Naval forces. Technology must be developed 
to meet future threats and costs must remain within the 
budget. The acquisition of a new system depends primarily on 
its total cost. Today the priorities of new major 

acquisitions are 1) cost, 2) performance, and 3) time to 
become fully operational. Reductions in size and weight have 
become increasingly important design considerations in the 
development of every component destined for use aboard United 
States Navy vessels. Gas turbine propulsion plants have 
significantly reduced the weight and space for main propulsion 
machinery aboard surface combatants. However, weight 
reductions in auxiliary heat exchangers and other large 
components such as main steam condensers aboard nuclear 
submarines have progressed more slowly. The use of heat 
transfer enhancement techniques for condenser tubing pursues 
this goal. Smaller, more efficient condensers would result in 
reductions in initial cost, space and weight requirements, and 
perhaps, operating cost. These heat transfer enhancement 
techniques can be utilized for other systems as well. 
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The performance of condenser tubes is determined primarily 
from the thermal resistances on the coolant side, across the 
tube wall, on the vapor side, and due to fouling. Each 
resistance can be reduced to minimize its effect, which in 
turn, enhances the overall heat transfer rate of the system. 
The major or dominant resistance in general is on the inside, 
which can be reduced by suitable internal enhancement 
techniques. The wall thermal resistance can be reduced by 
decreasing the wall thickness or changing the tube material. 

Enhancement techniques are categorized into two major 
groups, active and passive. Passive techniques include 
internal helical ribbing, displaced promoters (the use of wire 
mesh or Heatex inserts), and finned surfaces. Active 
techniques are the use of devices that add energy to the 
system and not are part of this thesis. This thesis will 
focus on externally finned surface condenser tubing. Earlier 
studies with finned tubing showed little improvement for steam 
condensation due to the large amount of condensate retained 
between the fins and the underprediction of the heat transfer 
coefficient. Better understanding of the two phase heat 
transfer phenomena and improved models have renewed the 
interest of integral finned tubes for steam condensers. 

B. COMDEMSATIOH 

Since 1916, researchers have attempted to improve the 
simple model of Nusselt to predict the heat transfer 
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coefficient for condensation on horizontal tubes. Nusselt's 
theory was based on a plain tube, and neglected the effect of 
vapor shear. In 1948, Beatty and Katz [Ref. 1] developed an 
analytical model to predict the outside heat transfer 
coefficient for an integral finned tube. Their model 
accounted for the thermal conductivity (efficiency) of the 
tube material. Their basic equation is sho%im below: 


ij=0.689 



1/4 

1 

1/4 

1 



A ty; 




( 1 . 1 ) 


The equivalent diameter, D^, can be calculated from [Ref. 2] 
as follows: 






= 1 . 3011 ; 




Aefl 


71/4 




"A./ 


( 1 . 2 ) 
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Where: 


L=H 


{dI-d!) 

4^0 


(1.3) 




(1.4) 
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(1.5) 


A 




2Tifn (Do-Df) 

4 


Afc^nfKD^C ( 1 . 6 ) 

A„=nficD^s 

and T) is the thermal efficiency of the fins. The Beatty and 
Katz model neglects the effects of surface tension of the 
condensate and the vapor shear. These forces thin the 
condensate film between the fins. Beatty and Katz tested 
horizontal integral spiral-finned tubes made from copper and 
nickel using a variety of fluids: propane^ n-butane, n- 
pentane, methyl chloride, sulfur dioxide, and freon-22. These 
fluids have small surface tension effects. The predicted heat 
transfer coefficients were within +7.2% and -10.2% of the 
values determined from the overall heat transfer data. 

Rudy and Webb [Ref. 3] developed an analytical model that 
predicts the amount of condensate retention on a horizontal 
integral finned tube. The model showed that a significant 
portion of the surface can be covered by retained condensate. 
Honda et al. [Ref. 4] recommended, for rectangular-shaped 
fins, the condensate flooding angle 0 be computed from the 
relationship. 
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( 1 . 8 ) 


♦=cos'M 


40 

pgsDf 



The condensate flooding angle is measured from the top of the 
finned tube as shown in Figure 1.1. For rectangular finned 
tubes, retained condensate forms a wedge at the base of the 
fin root. This condensate film wedge increases in thickness 
from the top to the bottom of the tube. The condensate 
flooding angle is the point in which the condensate wedge 
covers the entire fin flanks and interfin spacing. The shaded 
area, in Figure 1.1, represents the retained condensate wedge. 
It is assumed that no heat transfer occurs in the shaded area. 
The unshaded areas, in Figure 1.1, are the uncovered fraction 
of the fin flanks and interfin spacing for heat transfer. For 
a fin spacing of 1.5mm, height of imm, and thickness of 1mm, 
<p » 82.08° for steam at 100°C. Yau, Cooper, and Rose [Ref. 5] 
also Wanniarachchi, Marto and Rose [Ref. 6] studied the effect 
of fin spacing and the resulting flooding angle for maximum 
vapor-side enhancement. They concluded that for a copper 
rectangular Integral finned tube, the optimum fin spacing is 
si.5mm for a fin thickness of 1mm and height of 1mm. Masuda 
and Rose [Ref. 7] conducted a detailed study of the static 
configuration of the retained liquid using equation (1.8). 
The obseirved heat transfer enhancement was higher than 
expected and attributed it to the surface tension effects. 
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Masuda and Rose examined the enhancement ratio for the total 
surface area for a rectangular finned and a radiussed root 
finned tube. They also studied the active surface area 
enhancement using the condensate retention angle to deteinnine 
the flooded and unflooded fraction of the fin surface area. 
The flooded area was also called the blanked area by retained 
liquid. Rose [Ref. 8] modified the Nusselt equation to 
account for the gravitational and surface tension forces for 
the condensate. The enhancement ratios are based on the same 
temperature differential using the blanked and unblanked 
fraction of the fin surfaces. However, they did not include 
the efficiency of the material. 

Due to the complexity of the steam condensation problem 
for horizontal finned tubes, no one model has been developed 
that correlates the efficiency of the material along with 
other effects of the surface tension of the condensate, the 
gravity force of the condensate, steam vapor velocities, and 
the condensate flooding angle. 

C. NAVAL POSTGRADUATE SCHOOL CONDENSATION RESEARCH 

This thesis continues the research that was begun under 
sponsorship of the National Science Foundation at the Naval 
Postgraduate School (NPS). The apparatus constructed by Krohn 
[Ref. 9], June 1982, was modified by Swensen [Ref. 10]. The 
basic operation of the system remained unchanged. Copper 
horizontal integral finned tubes of various fin geometries and 
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tube diameters have been extensively studied at NPS 
independently. Rectangular finned tubes were studied by Coumes 
[Ref. 11], Van Petten [Ref. 12], and Guttendorf [Ref. 13]. 
Mitrou [Ref. 14], in addition to copper, studied copper nickel 
and aluminum rectangular fins. Detailed studies are required 
comparing different rectangular and fillet radial fins of 
different materials. The additional studies will help 
determine the best material and fin geometry for a particular 
operating system. 

D. OBJECTIVES OF THIS THESIS 

The main objectives of this thesis are: 


1. Obtain repeatable data for steam condensation on 
horizontal tubes having rectangular shaped radial fins 
made of copper, aluminum, copper nickel, and stainless 
steel, showing the effects on the thermal conductivity 
of the materials. 

2. Compare the data for rectangular shaped finned tubes to 
radiussed root finned tubes to examine the influence of 
the radius on the enhancement for each material. 

3. Compare the experimental data to the predicted values 
using existing theoretical models of Beatty and Katz 
[Ref. l]and Rose [Ref. 8]. 
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ZI. LZTBRATURB 8DKVBY 


A. C0MDEM8ATI0M 

Condensation has been Intensely studied as a heat transfer 
nechanism. The developments in condenser tubing and compact 
electronic equipment continued the requirement for 
experimental and theoretical research in this field. 

There are two fundamental modes of condensation, filmwise 
and dropwise. Dropwise condensation, as its name states, is 
the condensing of the vapor into discrete liquid droplets on 
the surface. As the droplets grow, they coalesce until they 
are large enough to be removed by gravity or vapor shear. 
Filmwise condensation creates a continuous liquid film over 
the entire surface area. The heat transfer rate for the tube 
is reduced due to the relatively thick condensate film 
thickness. Dropwise condensation can produce a heat transfer 
rate as much as an order of magnitude larger than that 
associated with filmwise condensation. Since the heat 
transfer rate is lower for the filmwise condensation, 
condenser design calculations are normally based on this more 
conservative mode of condensation [Ref. 15]. Complete 
filmwise condensation may be difficult to produce. The tube 
must be free of oils, greases and non-wetting chemical 
deposits. 
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B. BEAT TRAIIBFBR C0RRBLATI01I8 

The heat transfer coefficients for condensation on 
horizontal tubes are difficult to accurately predict. A 
suitable theoretical model must be developed and utilized. 

1. Horisontal Smooth Tubes 

Nusselt [Ref. 16] developed the foundation for the 
study of filmwise condensation on horizontal tubes in 1916. 
His correlation was developed for a quiescent vapor condensing 
on a single horizontal tube. He neglected shear forces and 
the thermal conductivity of the tube material. The shear 
forces of the liquid cause the condensate film to increase in 
thickness from the top of the tube to the bottom. Gravity 
force assists in draining the condensate around the sides of 
the tube circumference. The heat flux changes around the 
circumference of the tube with the maximum heat flux at the 
top of the tube where the film is the thinnest with no heat 
transfer at the tube bottom where the film is the thickest. 
Nusselt's equation for the average outside heat transfer 
coefficient around the tube is the following: 


/Jo=0.728 


^lsrPf(Pf-Pv) 


n/4 


( 2 . 1 ) 


where the fluid properties are evaluated at the film 
temperature, defined as: 
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( 2 . 2 ) 




Nusselt's theory has been extensively studied since 
1916. Even with his simplifying assumptions, his work has 
been found to be generally valid [Ref. 17, 18]. His theory 
was also found to be accurate for cases which do not conform 
to his original assumptions, such as variable wall temperature 
[Ref. 19]. One of the major problems in applying Nusselt's 
theory in the design of condensers is the assumption of a 
quiescent vapor. While in theory the assumption of a 
stationary vapor can be justified, steam condensers operate 
under conditions where the vapor is travelling at some 
velocity. 

With the vapor in motion, shear forces are developed 
which thin the condensate film and increase the outside heat 
transfer coefficient. Early theoretical work by Shekriladze 
and Gomelauri [Ref. 20] accounted for vapor shear forces. 
They assumed that the primary contribution to the surface 
shear stress was due to the change in momentum across the 
liquid-vapor interface. This resulted in the following 
equation to approximate the mean Nusselt number: 


-^= 0.64 (1+(1+1.69F)1/2)1/2 

Reli 


(2.3) 
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where: 


ulkf{T^^-T^) 


(2.4) 


and the two phase Reynolds number is given by: 




PiUJ>o 


(2.5) 


Lee and Rose [Ref. 21] compared vapor shear models with 
experimental results and found that the Shekriladze-Gomelauri 
results were more conservative than other researchers due to 
their simplified approximation for the interfacial shear 
stress. Fuji! et al. [Ref. 22], in a more recent study, 
performed an extensive development of the shear forces on the 
outside of a horizontal tube. From experimental data, they 
also developed a simple empirical formulation for the 
condensation of steam on a horizontal tube which includes 
vapor velocity effects: 

;^-0.96F>« (2.6) 


Where F and Re 2 ^ are defined in equations (2.4) and (2.5). For 
situations where the surface shear forces dominate, as for 
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steam, equation (2.6) more accurately predicts the vapor side 
heat transfer coefficient than equation (2.3). 

As discussed previously, the primary modes of external 
tube enhancement covered in this study are rectangular fins 
and fillet radius fins. There are advantages and 
disadvantages for each depending on the environment or 
operating conditions in which the tube is to be used. 

2. Rectangular-Shaped Finned Tubes 

Fins can be attached to the surface of smooth tubes to 
increase the heat transfer between the surface and the vapor 
medium. The enhancement is due primarily to the increase in 
surface area. The fins also channel the flow of the 
condensate. As the condensate forms and travels to the root 
of the fin, it's film varies in thickness. The film at top of 
the fin is generally thinner than at the bottom. This 
thinning increases the heat transfer rate of the tube. Part 
of the increase in enhancement is therefore caused by the 
surface tension of the condensate and the vapor shear forces. 

The fins used by Beatty and Katz [Ref. 1] were spiral. 
However, their theory applies for rectangular-shaped annular 
fins. The efficiency equation used by Beatty and Katz [Ref. 
1] was not listed, but the efficiency for a rectangular-shaped 
annular fin can be used (equation (2.7)) from [Ref. 23]: 







(2.7) 


13 



where: 


( 2 . 8 ) 

(2.9) 

/?,*v^/(l-/ei/i?2c) (2.10) 

( 2 . 11 ) 


where is the corrected length of the fin determined by: 

Lp=L+t/2 (2.12) 

a = | (2.13) 


Equation (2.7) assumes an adiabatic fin tip (no heat transfer 
through the fin tip). Figure 2.1 is a sketch of an annular 
fin of rectangular profile used to defined the dimensions in 
the above equations. The efficiency of finned tubes not only 
depends on the tube material but also the fin tube geometry. 
Figure 2.2 illustrates the change in efficiency of a fin as 
the geometry and the thermal conductivity of the material 
changes. The higher the thermal conductivity of a material, 
the higher the efficiency of the material. 


14 




Gregorig [Ref. 24] discovered that fins generated a 
surface tension force which tended to thin the condensate at 
the tip and thicken it between the fins. Masuda and Rose 
[Ref. 6] examined condensate retention on horizontal finned 
tubes. They defined an enhancement ratio for the increase in 
surface area by dividing the total surface area of a 
rectangular-shaped fin by the area of a smooth tube of the 
root diameter: 


The first term in the numerator is the area for the interfin 
space, the middle term is the fin flank surface area, and the 
third term is the fin tip surface area. The condensate 
flooding angle equation (1.8) was used to determine the 
fraction of the fin flank and tip area blanked by the 
condensate film. They defined an "active area enhancement" 
for a rectangular-shaped finned tube by dividing the unblanked 
finned tube surface area by the surface area of a smooth tube 
of root diameter. It is given by equation (2.15): 


R^{l-f,)*(Ri-Rf)^ll-fg) *nR^t 
nRf{b*t) 


(2.15) 


The first term in the numerator is the unblanked area of the 
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interfin space, the middle term is the unblanked area of the 
fin flanks, and the third is the fin tip area. The tip was 
assumed to be free of condensate. The fraction of the 
unblanked surface areas covered by condensate is given by: 
For the interfin space. 



\l tan(4>/2) \ 

[ 99Rri>) 

\ <l> ) 


(2.16) 


and for the fin flank. 



(2.17) 


Honda et al [Ref. 25] and Adamek and Webb [Ref. 26] 
have formulated models for film condensation on horizontal 
finned tubes, but they are difficult to use. Recently, 
Briggs, Wen, and Rose [Ref. 27] conducted a detailed review of 
the accuracy of various models to measure heat transfer for 
condensation on horizontal integral finned tubes. The simple 
model of Beatty and Katz [Ref. 1] does not account for surface 
tension effects. The Adamek and Webb model [Ref. 26] included 
an approximate surface tension effect and the result was an 
improved enhancement prediction. They concluded the best 
model to predict the heat transfer measurements is the Honda 
et al model [Ref. 25] which accounts for both the condensate 


16 



flooding and the enhancing effect of surface tension drainage 
from the fins. This is the most accurate model for predicting 
the heat transfer measurements for steam condensation on 
horizontal integral finned tubes. However, the model is very 
complex which limits its use. Rose [Ref. 8] proposed a "very 
simple model" to approximate the vapor side heat transfer 
coefficient for condensation on low integral finned tubes. 
His model included surface tension and condensate flooding, 
but neglected the resistance due to conduction in the fin 
material. Rose [Ref. 8] formulated a simpler semi-*empirical 
equation for calculating the vapor-side enhancement ratio for 
condensation on low-finned tubes. His equation accounts for 
the condensate flooding angle, as well as gravity and surface 
tension effects. He noted that if the ratio of ocosP/(pgbD^) 
is greater than 0.5, the interfin space is fully flooded and 
the condensate retention angle is zero. The Nusselt theory 
was modified by replacing the fin height with the vertical fin 
height determined from equation (2.18) or (2.19). 

For 0 < w/2; 


hy=h^3in^ 


(2.18) 


For 0 ^ ff/2: 


hy=h^/ (2-sin^) 


(2.19) 
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The enhancement ratio for the same AT was determined by 
dividing the heat transfer rate of the finned tube (with 
blanked areas) by the heat transfer rate of a smooth tube of 
the same root diameter and AT: 


_Qf/^T_Ot 

oJ^t' 0^ 


( 2 . 20 ) 


Where the heat transfer rate for the rectangular finned tube 
is, 




K 


(l-ff)*(I?|-D|) 


g^+(l-fg) JiD^sg^ 


( 2 . 21 ) 


and the heat transfer rate of a smooth tube of root diameter 
was determined from Nusselt theory, 

C)5=iiD,{s+t)g,„g^. (2.22) 


In the above expressions, the heat transfer fluxes are: 
Nusselt theory, for a smooth tube of root diameter D^: 


"728 




1/4 


(2.23) 


for the fin flanks: 
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(2.24) 


for the interfin space: 




(2.25) 


where $(0), the mean condensate film thickness from the top of 
the horizontal tube to the condensate flooding angle 0 is; 

5 (^) =0.874+0.1991xl0‘*4>-0.2642xl0‘^^*+0.5530xl0*^^^-0.1363xl0'*^* 

(2.26) 


for the fin tip: 


i 0.728^pg ^ 


(2.27) 


f - tan(4>/2) 


(2.28) 
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(2.29) 


:( 4o Wan(^/2) \ 


Using the above relationships, the enhancement ratio for 
constant (AT) can be rearranged into equation (2.30): 




- O 


- - - 7 ’.+ -^ 

(s+t) ^ n 


il-ff) 


dI-dI 


2D, (s+t) 




(S+t) * 

(2.30) 


where 



0.728'* 



(2.31) 






(2.32) 


r 0.9431 


[0.728 

K 0.728^ 


1/4 


(2.33) 






(2.34) 
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11/4 


(2.35) 



(g(4>))^ 

0.728* 


0.728* 


t 


and 




ODt 
Psrs^ * 


(2.36) 


Note that this enhancement model neglects the conductivity of 
the fin material and requires the specification of four 
coefficients Bf, B, and B,. Rose compared calculated 
values from equation (2.30) to existing experimental data for 
a copper fin tube using R-113 and steam condensing vapors. 
After extensive curve-fitting, the constants were determined 
to be B,=2.96 and B^= B^= B^^ 0.143. For steam, the theoretical 
enhancement values were within -25% of the experimental 
enhancement results. 

3. Radiussed Root Finned Tubes 

Radiussed root fins are rectangular shaped fins with 
the sharp base corners removed. Figure 2.3 shows the 
radiussed root finned tubes and the rectangular shaped finned 
tube used in this study. The finned tube root was rounded 
with a radius equal to half the fin spacing. Radiussed root 
finned tubes have less total surface area than rectangular 
shaped finned tubes. Nasuda and Rose [Ref. 7] defined the 
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total surface area enhancement of a radlussed root finned tube 


as: 


'TS 


p2_/p + b\^ 


° \ ^ 2 

2 ^ 2^ X 


Rgib+t) 




(2.37) 


However, by radiussing the fin root, there is no condensate 
wedge at the base of the fin that occurs in rectangular fins. 
Thus, more of the surface area remains "active**. They defined 
the "active area enhancement" as: 




Ro-l 




Rr(b+t) 




*Rot 


(2.38) 


Briggs, Wen and Rose [Ref. 28] continued the investigation of 
the effect of radiussed root for rectangular shaped finned 
tube. They tested two radiussed root tubes and two 
rectangular shaped finned tubes made of copper. With a high 
thermal conductivity material, they expected a large increase 
in experimental enhancement due to the increase in the "active 
surface area" for the radiussed root tube. The enhancement 
ratio of the "active surface area" for a radiussed root tube 
(€^,) and a rectangular finned tube (€^), (e^^ / e^), was 1.53 
for steam with a 1.5mm fin spacing and 1.42 for a 1.0mm fin 
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spacing. The enhancement ratio for the 1.0mm fin spacing 
agreed well with the experimental enhancement heat transfer 
ratio ( F of 1.33, but the experimental heat transfer 
enhancement ratio for the 1.5mm fin spacing was only 1.09. 
They felt the small corresponding increase in enhancement for 
the 1.5mm spacing seemed somewhat anomalous and intend to 
repeat the data. 
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Figure 2.1 



Schematic of Annular Fin of Rectangular 
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outside heat transfer coefficient 



(tie) A0N3l9ldd3 


Figure 2.2 Efficiencies for various Fin Geometries for 

Different Materials for the same outside Heat 
Transfer Coefficient (hp® 10000 (W/(m^*K))) 
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Figure 2.3 


Dimensions 


- for Finned Tube* 

rectangular shaped tinned P;- 

h» l.Omm, s* 1.5mm, and t* l.Omm, (b) aeep 


radiussed root finned tube a^^- 


Dy» 13.88mm, 

h- l.Omm, s- 1.5mm, t* 1-0®“' ^ 

(c) shallow radiussed root finned tube 

D_s* 14.38mm, 
and b* 0.75inm 


0.7 5mm, s* 1.5mm, t*® 1.0mm, 
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XZZ. BZFBSZliSMTAL APPJOATUS 


K. SYSTEM OYBRVZBW 

The apparatus is basically the sane as designed by Krohn 
[Ref. 9] and modified by Swensen [Ref. 10]. Figure 3.1 is a 
schematic of the test apparatus. The boiler is fabricated 
from a .3048m diameter Pyrex Glass tube with ten 4-’lcw, Hatlow 
immersion heaters. The boiler can be filled by gravity drain 
or vacuiun drag from a distilled water tank through a 
fill/drain valve. The steam travels vertically from the 
boiler section into a 2.13m long section of Pyrex tubing, with 
a diameter of 0.15m. It then travels through two 90** elbows 
that act as a moisture separator and direct the flow down to 
the stainless steel test section. The Pyrex glass sections 
are insulated to reduce the heat lost to the environment. 

The test section is fitted with openings for Teflon and 
nylon seals which support the horizontal tube and provide the 
coolant flow path. Figures 3.1 and 3.2 illustrate the cooling 
flow path and the temperature probes. Cooling water is 
provided to the test tube via two positive displacement 
centrifugal pumps. The pumps discharge to a flowmeter via a 
common line. Cooling water flow was controlled by a throttle 
valve up streeun of the flowmeter. Temperature in the sump is 
controlled by supplementing tap water. The cooling water siunp 
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serves two purpose, 1) to provide the coolant for the test 
tube and 2) to provide a heat exchanger for the vacuum line. 
Excess steam, the steam not condensed by the horizontal tube, 
flows across the axixiliary condenser. 

The auxiliary condenser section is also fabricated of 
Pyrex glass. Ambient temperature water which flows through an 
internal copper tube was used to condense the remaining ste 2 un. 
A suction port is located in the bottommost part of this 
section to remove air and other non-condensible gases. These 
gases are expelled to the atmosphere via a vacuum line to a 
Plexiglas tank connected to the vacuum pump. A layout of the 
purging system is shown in Figure 3.3. Gravity drains the 
condensed steam back to the boiler. 

B. SYSTEM IMSTRUMEMTATZOM 

The power for the immersion boiler is provided by a 440 
Volt silicon controlled rectifier mounted within the 
electrical switchboard. Figure 3.4 is a line diagram of the 
power supply. A feedback loop was installed to maintain a 
constant power supply to the boiler. Part of the voltage was 
used for an emf sign for a pressure conversion. This was one 
of the three means to determine the pressure in the test 
section. The other two are i) a Setra model 204 pressure 
transducer and 2) a direct reading from a Heise pressure gage 
(this was used only as a visual reference). 
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The vapor temperature was measured by a Type-T 
thermocouple located upstream of the horizontal tube being 
tested or calculated as a function of the voltage reading from 
the pressure transducer. Cooling water temperatures were 
calculated from the inlet and outlet temperatures of the flow 
through the test tube. The temperature differential of the 
cooling water used was either from a Teflon coated Type-T 
thermocouple, a ten junction thermopile, or a HP 284A quartz 
crystal thermometer. The location of the probes are 
illustrated in Figures 3.1 and 3.2. 

An HP-3497A data acquisition system links the voltage 
readings from the various elements to an HP-9826A computer, 
except for the quartz thermometer which is read directly. The 
HP-9826A computer used the program '’DRPALL", listed in 
Appendix A, to collect, process and store data. The computer 
stepped through the voltage output channels of the acquisition 
unit and used it's internal functions to convert the emf 
voltage signal into useful data. 

C. TUBES TESTED 

A total of fifteen tubes were manufactured for this 
thesis, thirteen finned tubes and two smooth tubes. The 
finned tubes were made of copper, aluminum, copper nickel 
(90/10),and stainless steel (316). There were three types of 
finned tubes: 
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1. Type I, standard rectangular shaped finned tube, root 
diameter of 13.88mm, fin height l.Omm. 

2. Type II, rectangular shaped finned tube with a 

radiussed root, tube diameter at the root was the same 
as the rectangular shaped finned tube (13.88mm) and the 
fin height was l.Omm from the fin root. This tube was 
referred to as the "deep fillet fin tube" during the 
test procedures. 

3. Type III, rectangular shaped finned tube with a 

radiussed root, tube diameter of 14.38mm. The fin 
height of this tube was the same as the radius of 
radiussed root (0.75mm). This finned tube was referred 
to as the "shallow fin tube". 


The thermal conductivities for the tube materials used are 
listed in TABLE I. The values were obtained by curve-fitting 
the data in [Ref. 29] for the temperature range of the study. 
Figure 3.5 illustrate the relative size and the geometry of 
the tubes. Figures 3.6, 3.7, and 3.8 are photographs of the 
rectangular shaped finned tube, deep radiussed root finned 
tube, and shallow radiussed root finned tubes, respectively. 
The dark lines in the radiussed root photographs are light 
reflections from the curvature of the fin root and not the 
actual machining of the finned tube. The inside diameter, D^, 
of all tubes tested was 12.7mro. All the finned tubes had an 
outside diameter of 15.88mro for the fins. The first smooth 
tube made had an outside diameter, 0^, of 13.88mm. It was 
damaged during testing and a second (stiffer) tube was 
manufactured, outside diameter of 14.38mm. The tube was 
filled with "Cerabond 375°" to reinforce the tube wall while 
machining. This reinforcing compound was removed after 
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machining by heating the tube. All residue was removed during 
tube preparation. 

All tubes were tested with a Heatex insert (wire mesh 
promoter) to increase the accuracy of the results. Minor tool 
marks inside the tube from the machining operation were 
neglected due to the increased turbulence by the Heatex 
insert. TABLE II is a list of all tubes tested and their 
geometry. 

TABLE I. THERMAL CONDUCTIVITIES OF TUBES TESTED. 


MATERIAL 

THERMAL COMDUCTIVITY (ko) 
(W/ (m*K)) 

COPPER 

390.8 

ALUMINUM 

231.8 

COPPER-NICKEL (90/10) 

55.3 

STAINLESS STEEL 

14.3 
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TABLE II. DIMENSIONS AND MATERIALS FOR TUBES TESTED 


Tube 

No. 

Tube Type 

Tube 

Material 

Root 

Diameter 

imm' 

Pin 
Height 
_LanD_ 

Outer 

Diameter 

Fin 

Thic)cness 

(mn) 

Fin 

Spacing 

B 

lei? 


13.88 

Bl 

15.88 

1.00 

1.50 

2 

Shallow 

Fillet 

Copper 

(Pure) 

14.38 

0.7S 

15.88 

1.00 

1.50 

3 

Deep Fillet 

Copper 

(Pure) 

13.88 

1.00 

15.88 

1.00 

1.50 

■ 

Deep Fillet 

Copper 

Nic)iel 

(90/10) 

13.88 

1.00 

15.88 

1.00 

1.50 

5 

Shallow 

Fillet 

Copper 

Nic)cel 

(90/10) 

14.38 

0.75 

15.88 

1.00 

1.50 

6 

Rectangular 

Fin 

Copper 

Nic)cel 

(90/10) 

13.88 

1.00 

B 

1.00 

1.50 

m 

Deep Fillet 

Stainless 

Steel 

(316) 

13.88 

1.00 

15.88 

l.OC 

1.50 

8 

Shallow 

Fillet 

Stainless 

Steel 

(316) 

B 

0.75 

15.88 

1.00 

1.50 

9 

Rectangular 

Fin 

Stainless 

Steel 

(316) 

13.88 

■ 

m 

1.00 

mn 

10 

Rectangular 

Fin 

Aluminum 

(Pure) 

13.88 

1.00 

B9 


BhHi 

B 

Deep Fillet 

Aluminum 

(Pure) 


1.00 

15.88 

l.OC 

1.50 

13 

Shallow 

Fillet 

Aluminum 

(Pure) 

14.38 

0.75 


1.00 

1.50 

ODl 

Smooth 

Copper 

(Pure) 


NA 


NA 

NA 

SMTH 

Smooth 

Copper 

(Pure' 

14.38 

NA 

14.38 

NA 

NA 
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Figure 3.4 Single Line Wiring Diagram of the Controller 
Circuit for the emf Voltage Signal Input to the 
Data Acquisition Unit 
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Figure 3.5 


Photograph of the lour Types of Tubes Tested 
and Heatex Insert used (from left to right 
rectangular shaped finned tube, deep radiussed 
root finned tube, shallow radiussed root 
finned tube, smooth tube, and insert) 





Figure 3.6 


Photograph of the Rectangular Shaped Finned 
Tube 
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Figure 3.7 


Photograph of the Deep Radiussed Root Finned 
Tube 













Figure 3.8 Photograph of the Shallow Radiussed Root 

Finned Tube 
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ZV. BZPBRUCSMTAL PROCSOURS8 AMD DATA AMALYSZS 


A. TDBB PRBPARATZOM 

Prior to operation, the test tubes were cleaned and 
chemically treated to promote filmwise condensation during the 
data collection process. The chemical treatment solution 
[Ref. 30] had been used by several other researchers at NPS 
and was developed for copper tubes. The solution was a 
mixture of 50 percent by weight of sodium hydroxide and ethyl 
alcohol. This solution was modified during this thesis to 50 
milliliters of ethyl alcohol combined with 1/2 teaspoon of 
sodium hydroxide pellets. The solution does not affect 
stainless steel but it is important to follow the same 
procedure for a completely uncontaminated tube. Additional 
chemical treatment solutions are contained in [Ref. 31]. 
Guttendorf [Ref. 13] outlined the basic procedure. The 
following procedure was used: 


1. The outside of the tube was thoroughly cleaned with a 
mild soap solution using a soft bristle brush. A 
circular wire brush was used for the inside. The soap 
was rinsed off and the tube was checked for filmwise 
condensation. Breaks in the film indicated 
contamination and dropwise condensation. If there were 
signs of breakage, the outside surface was again 
cleaned with the soap solution and rinsed with 
distilled water. Once a continuous film was present, 
the active surface was not touched. 

2. The tube was then placed in a steam bath, to heat the 
tube and surround the tube surface with moist air. 
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3. The sodium hydroxide and ethyl alcohol solution was 
then applied to the tube surface. The solution should 
be mixed prior to the each treatment because the sodium 
hydroxide absorbs CO^ from the air which could affect 
the compound solution. It was kept warm (-25°C) to 
ensure a watery consistency. 

4. The solution was applied with a small brush in 10 
minute intervals for one hour. While applying the 
solution, the tube was rotated to ensure the entire 
surface was treated. The wire brush handle was used to 
maintain the position of the tube over the steam bath. 
If the tube was treated previously, the tube was 
cleaned with the soap solution and rinsed with 
distilled water. If there were no film breaks, the 
tube was placed in the steam bath and the solution was 
applied every 5 minutes over a 20 minute period. 

5. After the tube surface was treated, it was removed from 
the steam bath and rinsed with acetone to remove excess 
solution. The acetone was rinsed with distilled water. 
If there were no breaks in the film, the tube was 
inserted into the test section. After the insert was 
installed, coolant flow was started to the tube to 
maintain the film. A leak check of the cooling water 
system was performed and the flow rate was set at about 
65%. 


The oxide layer formed by the chemical treatment promoted 
a continuous film on the tube surface. The film was very 
thin, making the thermal resistance insignificant in the 
overall resistance of the tube. 


B. SYSTEM START'UP AMD SHUTDOMM PROCEDURES 

Once the system was assembled, it could be brought on-line 
using the following procedures: 

1. The boiler section must be filled with distilled water 
to a level approximately 4 to 6 inches above the top of 
the heater elements. If the test tube was not 
installed, the boiler was filled by gravity drain from 
the distilled water tank. This was done by attaching 
a hose to the drain/fill line below the boiler. To 
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reduce time, if the test tube was installed, the boiler 
was filled by vacuum drag. Vacuum drag was 
accomplished by placing the system under a vacuum (~10 
psia), connecting the fill hose and then opening the 
drain/fill valve. 

2. When the appropriate water level has been achieved, 
shut the fill/drain valve. The by-pass/condensate 
return valve was always left open. The by¬ 
pass/condensate valve is located below the boiler, 
between it and the condensate drain/fill valve. 

3. Energize the data acquisition unit, computer, printer, 
and quartz thermometer power supplies. These units are 
normally left on line. Load the software program 
DRPALL and check for proper operation. To load the 
program, insert the program disk and type LOAD 
"DRPALL ". Type RUN and answer the prompt questions up 
to "ENTER FLOWMETER READING". The data acquisition 
unit should be displaying channel 40 in the remote 
setting. If the system power supplies are maintained 
from a previous run, this is not required. Verify that 
thermocouple outputs all correspond to ambient 
temperature. 

4. Open the fill valve to the cooling water supply tank 
and adjust the flow. It needs only to be cracked open. 
The flow should be set low enough to ensure that the 
drain box to the bilge does not overflow. The fill 
valve is the valve located to the left of the boiler 
switchboard near the wall. 

5. Perform a leak test on the water systems. 

a. Check the cooling system again for leaks. 

b. Open the water flow control valve to the auxiliary 
condenser and adjust the flow rate to at least 30% 
and check for leaks. If no leaks are present, 
reset the flow rate to at least 10%. 

6. If the system was open to the atmosphere, place the 
system under a vacuum. To do this, shut the drain 
valve in the plexiglas container and energize the 
vacuum pump. After the pressure gage for the vacuum 
pump on the plexiglas container reaches 24 inches of 
vacuum, open the suction valve located on the side of 
the auxiliary condenser. If the pressure in the test 
apparatus does not drop below 8 psia, check the 
atmospheric valve to the auxiliary condenser and the 
vacuum drain valve below the plexiglas container and 
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ensure they are closed. After the pressure is below 3 
psia, shut the vacuum suction valve and secure the 
vacuum ptimp. 


7. To energize the heaters, three switches must be shifted 
"ON": 

a. Switch #3 on panel pnl 5 located on the right hand 
wall of the hallway to the machine shop. 

b. The heater load bank circuit breaker is on the left 
side of the electrical switchboard behind the HP 
computer desk. 

c. The condensing rig boiler power supply switch is on 
the front of the electrical switchboard. 

The power supply in pnl 5 is left on. To start>up the boiler, 
flip the load bank circuit breaker to "ON". The voltmeter 
should indicate 100 volts. Ensure the resistance control knob 
is turned completely to the left. The control knob is located 
below and to the right of the voltmeter. Next, shift the 
boiler power supply switch on. The voltage indication should 
go to zero. If not, secure the switches and contact an 
electrical technician. Adjust the voltage to 50 volts using 
the control knob. If the system is below 2 psia, adjust the 
power level to 40 volts for initial start-up. The system is 
started at a low power level to minimize the vibrational shock 
to the system from vapor bubble formation and collapse. As 
the system warms up, the power can be increased, in increments 
of 10 volts, u' 1 the desired setting is reached. 

8. After the system pressure rises above 4 psia, air and 
other non-condensible gases must be purged from the 
system. This is accomplished by following the 
procedures outlined in step 6. When the Pyrex glass 
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container around the auxiliary condenser is warm to the 
touch, most of the non-condensible gases have been 
removed. The purging procedure can not be done with 
both cooling water pumps on the line. The large power 
load will trip the power supply breaker in the panel 
outside the door to the lab. The initial purge takes 
about 15 - 20 minutes. The purging process should be 
repeated every few hours during extended operations. 

9. The filmwise condensation established during the tube 
installation should still exist. If not, the following 
procedure must be followed to establish filmwise 
condensation: 

a. Secure cooling water to the tube and the auxiliary 
condenser. Allow the system vapor temperature to 
increase to at least 3800 microvolts, on channel 
40. 

b. Increase the flow rate in the auxiliary condenser 
to 50% and allow the vapor temperature to decline 
to 3200 microvolts. 

c. Secure coolant flow to the auxiliary condenser and 
allow the vapor temperature to increase to about 
3700 microvolts. This forms a steam blanket over 
the tube. 

d. Initiate cooling water flow to the horizontal tube 
at a flow rate of 80%. 

e. Start the flow to the auxiliary condenser at 
maximum. Adjust the flow rate to maintain desired 
pressure and temperature. 


If, after performing these steps, some dropwise 
condensation persists, repeat step (9) again. If dropwise 
condensation continues, the tube should be removed, cleaned 
and retreated. Notes should be made of locations of machine 
tool marks. They can give the appearance of dropwise 
condensation if they are retaining condensate. 

10. Press the "RUN" key on the keyboard to activate the 
DRPALL program. The program will prompt you with 
questions for the necessary data information. A copy 
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of the data collection program is listed in Appendix A. 


11. Ensure the system has been operating at steady state 
condition for at least 30 minutes prior to continuing 
past the statement "ENTER FLOWMETER READING". Several 
variables must be monitored at the same time. Each 
operator must obtain a feel for the equipment to 
determine a steady state condition. The pressure input 
into the program is only a visual reference and is not 
used in the program calculations. A steady state 
condition is defined as a good agreement in the 
following printouts: pressure (Ptran^Psat), temperature 
differential (quartz,T-pile, thermocouple) and the 
overall heat transfer coefficient (U^) from the 
previous data run printout. The difference between the 
pressure readings for the transducer and the voltage 
conversion should be less than 0.5 kPa and 0.1 kPa from 
the previous run. The three temperature differentials 
should be within .01°C of the previous run and within 
.05°C of each other. The overall heat transfer 
coefficient should be within 100 (W/(m^K)) of the 
previous data run. 

12. For vacuum runs, the control setting on the voltmeter 
is 90 volts. Channel 40 on the data acquisition system 
should be 1980 ± 10 microvolts. This corresponds to T,,^ 
» 48°C, and a vapor velocity of » 2 m/s. 

13. For atmospheric runs, the control setting on the 

voltmeter is 175 volts and channel 40 on the data 
acquisition system is 4280 ± 10 microvolts. This 
corresponds to T^^^ » 100°C, and a vapor velocity of « 

1 m/s. Special care must be used when operating at 
atmospheric pressure to ensure overpressurization and 
rupture does not occur. 

14. If both vacuum and atmospheric runs are to be conducted 
on the same day, the vacuum run should be conducted 
first. This eliminates the long cool down time 
required after an atmospheric pressure run. 


The system should be secured using the following 
procedures: 

1. Secure power to the heating elements. Turn the voltage 
control knob completely to the left. The voltage 
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indication on the voltmeter should be zero. Shift the 
boiler supply power switch to "OFF”. The voltage 
indication on the voltmeter should rise to 100 volts. 
Press the power supply breaker to ”OFF” and reinstall 
the safety bar. 

2. Secure coolant flow to the auxiliary condenser. If the 
system is to remain at vacuum pressure until the next 
data run, then the auxiliary condenser can be used in 
assisting to cool the system down, provided the same 
tube will be used for testing. 

3. Secure the coolant flow to the tube by shutting the 
inlet valve and securing the coolant pumps. 

4. Secure the water flow to the coolant water sump tank. 

5. Return the system to atmospheric pressure unless a 
system pressure leakage test is being performed. Open 
the vent valve on the auxiliary condenser slowly. Keep 
all foreign material away from the vicinity to avoid 
contaminating the system. 

6. In case of any abnormal conditions or an emergency, 

SECURE THE BOILER POWER FIRST. 


C. DATA PROGRAMS 

The computer programs DRPALL and HEATCOBB were used to 
collect, store, and process the test data for analysis. 
DRPALL, a revision of the basic HP program, calculated and 
stored the raw data. HEATCOBB, a FORTRAN program, was written 
to reprocess the raw data for theoretical model comparison. 

The DRPALL program used a series of internal program 
functions to convert voltage inputs from the data acquisition 
unit and the quartz thermometer into raw data. Raw data were 
calculated from both direct and indirect measured values. The 
overall thermal resistance for the heat transfer from the 
vapor to the cooling water is the sum of the vapor side (R^) , 
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the tube wall (R^), and the coolant side (Rj) resistances. 
Since the tubes were cleaned prior to testing, the fouling 
resistance was negligible, (R^ - 0). The total resistance can 
therefore be represented as equation (4.1): 

^totsl ~^i (4.1) 


where, 




1 

Mi 


(4.2) 




1 


(4.3) 





2nLkc 


(4.4) 


The effective area for the inside of the tube represents the 
entire length of the tube. The portions of the tube that do 
not contain fins were used to support the tube and act as fins 
extended in the axial direction. They transfer additional 
heat to the inlet and outlet portion of the tube. The 
effective inside surface area is represented as: 
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( 4 . 5 ) 


The fin efficiencies (i|, and ijj) for their respective entrance 


lengths are: 


ni= 


tanh{mil.i) 


(4.6a) 


»l2 = 


tanh {;?^I. 2 ) 


(4.6b) 


where, 



(4.7a) 



(4.7b) 


and Pj are the fin perimeters and A, and Aj are respective 
the cross sectional areas. The actual outside surface area, 
the tube length exposed to steam, varies with each machined 
spacing between each fin. Therefore the effective outside 
area was assumed to be: 
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(4.8) 


The overall thermal resistance can be related to the overall 
heat transfer coefficient (U^) and the effective outside area 
(Ao) 


R 


total 


1 

UcAo 


(4.9) 


Substituting equations (4.2), (4.3), and (4.9) into equation 
(4.1) gives: 


1 

UAo 


1 


*R + 


1 

hAo 


(4.10) 


The heat transfer rate, Q, can be calculated from the measured 
inlet and outlet temperatures and the mass flow rate of the 
cooling water through the test tube. 

0=ihCp{T^-T^) (4.11) 

Using the energy balance for a control volume, the heat 
transfer rate can be expressed in terms of the overall heat 
transfer coefficient (U^,): 

0=UAoi^^MTD) (4.12) 
Where the log mean temperature difference, LMTD, is: 
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r^-T, 


(4.13) 


LMTD= 




The inlet (T,) and outlet (Tj) cooling water temperatures were 
measured directly with the quartz thermometer and the 
saturation temperature measured using the vapor 
thermocouple (channel 40) from the data acquisition unit. The 
specific heat of the coolant at constant pressure (c^) was 
determined from the bulk mean temperature of the cooling 
water. In addition, a correction factor was used to account 
for the viscous heating of the coolant through the test tube 
with a heatex insert; the correction equations are located in 
Appendix B. 

Once the total heat transfer rate has been calculated, the 
overall heat transfer coefficient can be calculated by using 
equation (4.12). The only two unknowns, the inside heat 
transfer coefficient (h^) and outside heat transfer 
coefficient (h,,), are computed using the Modified Wilson Plot 
Technique. 

The Modified Wilson Plot Technique uses the overall heat 
transfer coefficient determined from the experimental data to 
determine the inside and outside heat transf'^r coefficients. 
The technique uses an assumed leading coefficient for the 
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inside and outside heat transfer coefficients and iterates to 
determine the unknown heat transfer coefficients. Briggs and 
Young [Ref. 32] explain this technique in detail. The two 
forms of the equations used are: 

For the outside heat transfer coefficient, 


ho=a\ 






1/4 


=aZ 


(4.14) 


Where a is a dimensionless Nusselt coefficient [Ref. 16]. 
For the inside heat transfer coefficient. 





(4.15) 


All data were taken using the Petukhov-Popov correlation [Ref. 
33] for the inside heat transfer coefficient. Therefore, 





(4.16) 


where: 

€= [1.821og (Re)-1.64] (4.17) 
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(4.18) 


^i=1+3.4€ 


l^=11.7+1.8Pr-i/3 


(4.19) 


Substituting equations (4.14) and (4.15) into equation (4.10) 
and rearranging the terms gives: 







(4.20) 


Letting: 


y= 



\z 


(4.21) 


- 


(4.22) 



(4.23) 


and 



(4.24) 
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resulted in a simple linear e<iuation: 


y=inX*b 


(4.25) 


The parameters n and Z are temperature dependent, so an 
iterative procedure must be used to solve the equations. A 
least squares fit of equation (4.25) was used to determine C, 
and a. The inside heat coefficient could now be determined 
from equations (4.15) and (4.16). With the inside heat 
transfer coefficient and the overall heat transfer coefficient 
determined, the outside heat transfer coefficient can be 
solved using equation (4.10). 

The conditions for a data run cannot be exactly 
reproduced, resulting in a variation between C, and a values 
between runs for the same tube. 

From Nusselt theory, the heat flux (q) based on the 
outside area can be shown as: 

g-aATy* (4.26) 


where: 


a=a 


^fpIsrA 

PA 


a 



(4.27) 


and 
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(4.28) 


q=h^Tf 


where: 


h^^aATf^'* 


(4.29) 


The enhancement ratio based on a constant temperature drop 
across the condensate film, can be expressed as: 



(4.30) 


The enhancement ratio for constant (AT) can be defined as the 
improvement in the heat transfer rate of a finned tube 
compared to the heat transfer rate of a smooth tube with an 
outside diameter equal to the root diameter of the finned tube 
for the same temperature difference. 

The Fortran program, HEATCOBB listed in Appendix C, used 
the experimental values for the vapor, condensate film, and 
the differential temperatures to solve for an outside heat 
transfer coefficient. The outside heat transfer coefficient 
determined from equation (1.1), the Beatty and Katz 
correlation, was obtained by iterating the fin efficiency for 
the material and assuming an initial outside heat transfer 
coefficient. This heat transfer coefficient used the 
effective area of the fin A^^ so that a correction factor must 
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be applied to it the heat transfer coefficient in order to 
compare it with the outside heat transfer coefficient obtained 
during this thesis. The correction factor was the ratio of 
the effective area divided by the area of a smooth tube having 
a diameter equal to the root diameter of the finned tube. The 
heat transfer rate Q, can be expressed as follows: 

(4.31) 

where h^^ and were determined from equations (1.1) and 
(1.4), respectively; or in terms of the outside area A^: 

Q^h^^AT. (4.32) 

By substituting and rearranging equations (4.31) and (4.32), 
the outside heat transfer coefficient using the Beatty and 
Katz correlation was modified to get: 

• (4.33) 


During this thesis, the enhancement ratio was defined by 
dividing the outside heat transfer coefficient for the finned 
tube by the outside heat transfer coefficient for a smooth 
tube from Nusselt theory as: 


eAT = - 


■“Bir 


^I>fUSS 


(4.34) 
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As shown in Chapter II, the efficiency of a fin, equation 
(2.7), changes with the fin profile area Ap. For this thesis, 
the profile area for a radiussed root finned tube was 
calculated from equation (4.35): 


and the fin efficiency was determined by substituting this 
profile area into equation (2.8). The total surface area of 
a radiussed root finned tube decreases compared to a 
rectangular shaped finned tube but the profile area increases. 
This increase in profile area decreases the value of in 
equation (2.8), and as seen in Figure (2.2), the fin 
efficiency will increase. 

Also in the Fortran program, HEATCOBB, the basic 
enhancement ratio for constant (AT) as proposed by Rose [Ref. 
8], equation (2.36), was modified. The fin efficiency 
determined in the Beatty and Katz model was applied to the 
unblanked surfaces of the fin. The enhancement ratio for a 
rectangular shaped finned tube becomes: 




^HUSS 


(5+C) 




Dl-Dl 


2D^{S+C) 




T 

•‘s 


(s+t) 
(4.36) 
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Unlike a rectangular shaped finned tube, in the case of a 
radiussed root finned tube, the unflooded (ie, the region from 
the top of the tube to a point where the whole of the flank is 
just wetted and where the condensate film at the center of the 
interfin space has a finite thickness) surface areas of the 
fin flank and the radiussed root do not have any condensate 
"wedge” blanking them off. The condensate flooding angle 0 
was still calculated from equation (1.8) and the estimated 
fraction of the fin flanks and radiussed interfin space 
blanked by condensate, f^ and f^, was set equal to zero. The 
enhancement ratio for a radiussed root finned tube becomes 
equation (2.20): 

^XT=Qf/0s 


where the numerator is: 

=2 n rj tq,r\ 12 7t|r| -|r, -* 2 u ^ 1 |i -1J Jg^T] j 

(4.37) 


and the denominator is given by equation (2.22). In equation 

(4.37), the heat flux for the interfin space was varied from 
equation (2.25) to account for the changing geometry along the 
radiussed root: 


gs= 




1* 

{Z?^+S{1-(2/71) ) [ 


1/4 


(4.38) 
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As mentioned in Chapter II, the Rose [Ref. 8] model 
required that the constants B,, and B^ be specified. 
The value of all these constants will vary with the tube 
material and fin geometry. They cannot be determined 
accurately until more data is obtained for a variety of 
radiussed root finned tubes. This thesis therefore used the 
B-values determined by Rose [Ref. 8]. The heat flux for the 
fin tip was still defined as in equation (2.27) and for the 
fin flanks equation (2.24) was used. However, the fin height 
was modified as noted below: 


h=J?2 



(4.39) 


Using equations (4.37), (4.38) and (4.39), equation (2.20) can 
be used to find the enhancement ratio, for a radiussed root 
finned tube. 
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V. RB8ULT8 AMD OZSCUSSZOM 


A. OBMSMAL DZ8CUS8Z0H 

Experimental data were taken as described in Chapter IV. 
A short format version of the data printout for the tubes 
tested is contained in Appendix D. The tube numbers are 
listed in TABLE II in Chapter III along with their respective 
geometries. Nomenclature for the data runs are as follows. 
The first two letters are the run condition, i.e. AT for 
atmospheric and VT for vacuum condition; the two niunbers or 
group of letters are the tube number from TABLE II; and, the 
last number is the run number. For example, the nomenclature 
”VT094" means that this is the fourth data run for tube number 
9, a rectangular shaped finned tube made of stainless 
steel(316), under vacuum condition. 

The cooling water flow rate settings for atmospheric 
condition data runs were from 80 to 20 percent of the 
rotameter scale in increments of 10 percent; the procedure was 
then reversed back to 80 percent. This procedure could not be 
followed for the vacuum runs because of the inability to 
maintain the required temperature and pressure setting for a 
complete data set. The problem maintaining the set points was 
attributed to the long settling time between data points and 
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the cooling effects of the environment surrounding the test 
apparatus. In the early data sets, it took about 45 minutes 
to reach a steady state condition described in Chapter IV. 
This resulted in a 13 to 15 hour data taking session. Several 
attempts were made to reduce the run time. One attempt was to 
secure the augmenting tap water to the cooling water sump for 
the test tube. Increasing the temperature of the cooling 
water flowing through the test tube reduced the temperature 
difference across the test tube and the amount of steam 
condensed by the test tube. This increased the amount of 
steam to be condensed by the auxiliary condenser and increased 
the control of the temperature and pressure settings. 
However, this reduced the range of the temperature difference 
for the data obtained. The other attempt was to change the 
sequence of the data by changing the cooling water flow rate 
through the test tube. The sequence was changed to 80 , 20, 
70 , 30, 60, 40, 50 (2), 40, 60, 30, 70, 20 and then back to 
80 percent instead of the procedure as described for the 
atmospheric conditions. The data obtained from this procedure 
where compared to previous runs for consistency and 
repeatability. There were no noticeable variations; thus, 
this procedure was used for the remaining vacuum data runs. 

The condensate film was checked as described in Chapter 
IV. During the purging operations, the condensate film was 
re-verified and the data collection process continued if the 
condensate film was intact. The revised chemical treatment 
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solution, as stated in Chapter IV, produced filmwise 
condensation on the same tubes weeks after testing. 

Great care and attention to detail were taken to obtain 
good reliable data. With all experiments, everything cannot 
be accounted for, leading to uncertainties in the 
measurements. The uncertainty calculations obtained for 
randomly chosen data points are contained in Appendix E and do 
not account for air and other non-condensible gases or 
possible dropwise condensation conditions over any portion of 
the test tube. 

B. SMOOTH TUBE RESULTS 

The overall heat transfer coefficient for a given outside 
diameter depends on the tube material. Equations (4.1) and 
(4.9) relate the overall heat transfer coefficient to the 
total resistance. As the wall resistance decreases, the 
overall heat transfer coefficient increases. Figures 5.1 and 
5.2 show the overall heat transfer coefficient versus velocity 
behavior for copper tubes under atmospheric and vacuum 
conditions, respectively. Two tubes were used, with slightly 
different diameters. Thus the wall resistance (R^^) was about 
the same for each tube. Using a Heatex insert improved the 
accuracy of the data taken by reducing the influence of the 
inside resistance (R^) on the overall heat transfer 
coefficient. The data show that the outside resistance (R^) 
must dominate the overall heat transfer resistance since, as 
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cooling water velocity increases, the overall coefficient 
remains constant. In addition, the results appear to be 
independent of operating pressure. 

Comparing Figures 5.1 and 5.3 for runs ATSMTHl and ATSMTH3 
which had the same outside diameter tube (D^=14.38mm), the 
outside heat transfer coefficient (h^) is nearly constant over 
the range of temperature differences (Ts-Tw). The 
corresponding overall heat transfer coefficients in Figure 5.1 
change very slightly, again indicating that the outside 
resistance is the controlling resistance. 

From Nusselt theory, the outside heat transfer coefficient 
is independent of tube material. Experimentally obtained 
smooth tube data were compared to the data of Guttendorf [Ref. 
13] who used a copper tube and Long [Ref, 34] who used 
titanium. It appears that the Guttendorf data is high (about 
14%) and the Long data is low (about 4%). This is due 
partially to the different diameters used. Since the Nusselt 
theory predicts that the outside heat transfer coefficient, 
h^j, is proportional to then the diameters will influence 
the measured result. In addition, Guttendorf used a twisted 
tape insert (i.e., a small rectangular shaped wire twisted 
around a metal rod in a spiral manner) vice a wire mesh insert 
as used in this thesis. A similar comparison was made for 
vacuum conditions. Since the outside heat transfer 
coefficient for a smooth tube is independent of wall material. 
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all finned tube data were compared to the smooth tube data 
taken for the copper tube. 

C. RBCTMIOULAR SHAPED FIEHED TUBE RESULTS 

Figure 5.4 shows the data of the overall heat transfer 
coefficient (U^) versus cooling water velocity (Vw) for 
rectangular shaped finned tubes of copper, aliminum, copper 
nickel, and stainless steel at atmospheric conditions. In 
addition, smooth tube data for copper and titanium are 
provided for comparison. 

Comparing the four rectangular shaped finned tubes, as the 
thermal conductivity (k^) increases, the overall heat transfer 
coefficient increases. At a cooling water velocity of 3.5 
m/s, the ratio of the overall heat transfer coefficient for 
copper to stainless steel (U^(Cu)/U^^CSS)) is 2.6. Since the 
dimensions of these tubes are the same, this significant 
enhancement is due to 1) a smaller wall resistance to base of 
the fins for copper and 2) a smaller wall resistance of the 
fins themselves. Both effects combine to determine the inside 
heat flux. 

For low thermal conductivity material (i.e., stainless 
steel), the overall heat transfer coefficient is roughly 
constant for changing velocities. This indicates that the 
outside resistance (R^) is controlling the overall heat 
transfer coefficient. As the thermal conductivity increases, 
the overall heat transfer coefficient increases with cooling 
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water velocity, implying that the outside resistance is not 
controlling the overall heat transfer coefficient as much 
(i.e., the inside resistance (R^) is also important). 

The heat transfer enhancement of the finned tube increases 
with the thermal conductivity of the tube material. Comparing 
the overall heat transfer coefficient of the copper finned 
tube to the copper smooth tube, the heat transfer enhancement 
for the 3.5 m/s cooling water velocity is 2.3. The 
enhancement at the same cooling water velocity for stainless 
steel is only 1.3 (since the thermal conductivity for 
stainless steel is about the same as titanium, the titanium 
smooth tube data of Long (D^=15.85mm)was used). It is clear 
that for higher thermal conductivity materials, fins help 
considerably to improve the performance of the tube, but for 
lower thermal conductivity materials there is a small 
influence. Similar (but reduced) trends exist under vacuum 
conditions as shown in Figure 5.5. 

The data obtained during this thesis for copper 
rectangular shaped finned tubes are compared to previous data 
in Figures 5.6 and 5.7, for atmospheric and vacuum conditions 
respectively. Flook [Ref. 35] tested a finned tube with the 
same dimensions as used in this thesis except it had a root 
diameter, D^, of 13.7mm. He used a twisted tape insert along 
with the Seider-Tate [Ref. 36] correlation for the inside heat 
transfer coefficient, hj, to obtain his data. The Seider-Tate 
[Ref. 36] relationship is: 
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When this correlation was compared to the Petu)chov-Popov 
correlation by Incropera and Dewitt [Ref. 15], the Petukhov- 
Popov correlation was found to be the most accurate. 
Therefore, the Guttendorf [Ref. 13] and Van Petten [Ref. 12] 
raw data were reprocessed using the Petukhov-Popov [Ref. 32] 
inside heat transfer correlation. Guttendorf and Van Petten 
tested tubes with an inside diameter, D^, of 9.53mm and root 
diameter, D^, of 12.7mm. The fin height, spacing and 
thickness were the same as the rectangular shaped finned tubes 
used in this thesis. They also used the twisted tape insert 
which was described earlier. As plotted in Figures 5.6 and 
5.7, the data obtained during this thesis fell between the 
data of the previous researchers. With the different tube 
diameters and inserts used, little additional comparison can 
be made. The Flook data could be erroneously high since his 
data were taken after Holden [Ref. 37] completed his thesis on 
the use of an organic coating to promote dropwise condensation 
of steam on horizontal tubes in the test apparatus. Some of 
the dropwise promoter may have been retained in the test 
apparatus during the measurements of Flook, causing dropwise 
condensation on the test tube vice filmwise. The data of 
Guttendorf and Van Petten were also obtained after Holden. 
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The actual reason for the variation in data is not known. The 
data obtained in this thesis could be low because of the 
presence of air and other non-condensible gases. However, 
care was taken to remove these gases. All the data are within 
an uncertainty of ± 20% for the same tube geometry and tube- 
side insert. Additional data should be taken with the same 
geometry and inserts to establish more accurate trends for 
comparison. 

Mitrou [Ref. 14] tested rectangular shaped finned tubes of 
aluminum and copper nickel. Like Flook [Ref. 35], he also 
followed Holden [Ref. 37] in conducting his studies in the 
test apparatus. Since these earlier thesis studies, Swensen 
[Ref. 10] modified, disassembled, and cleaned the test 
apparatus to improve the accuracy of the data taken. Mitrou's 
fin dimensions were identical to Flook's copper tube. 
Mitrou's data were also reprocessed during this thesis using 
the Petukhov-Popov inside heat transfer coefficient 
correlation, but he used the twisted tape insert. Mitrou's 
data for aluminum and copper nickel finned tubes at 
atmospheric conditions are plotted in Figures 5.8 and 5.9 
respectively. Similar to Flook's data, the Mitrou results are 
higher than those found in this thesis. It is obvious from 
these figures that, although the exact magnitude for a given 
material may be uncertain, the outside heat transfer 
coefficient is influenced by the thermal conductivity of the 
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tube material. This pattern holds for vacuum conditions also, 
as shown in Figure 5.10. 

Figure 5.11 summarizes the experimentally obtained outside 
heat transfer coefficient data versus the temperature 
difference between the vapor and the outer tube wall (Ts-Tw). 
The outside heat transfer coefficient increases as the thermal 
conductivity of the finned tube material increases, implying 
that it is not desirable to fin a low conductivity tube. As 
discussed earlier for the overall heat transfer coefficient 
results, this is due to 1) the wall resistance to the fin base 
and 2) the wall resistance of the fin itself. This trend can 
also be seen by overlapping the data in Figures 5.6, 5.8, and 
5.9. 


D. RAOIU88ED ROOT FINNED TUBE REEULTE 

Radiussing the root of the rectangular shaped finned tube 
is designed to remove retained condensate from the unflooded 
part of the tube, thus improving the thermal performance of 
the tube. Figure 5.12 compares overall heat transfer 
coefficient data of rectangular shaped finned tubes to 
radiussed root finned tubes for the four materials studied in 
this thesis at atmospheric conditions. In all cases, except 
for stainless steel, radiussing the base root reduced the 
finned tube performance of the materials tested. Because of 
the poor thermal conductivity of stainless steel, the 
increased fin profile area by radiussing the root had a 
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greater inpact on the fin efficiency than for the higher 
thermal conductivity materials. The dispersion in the overall 
heat transfer coefficient data was greater for the highest 
thermal conductivity material (copper) and decreased with 
thermal conductivity. 

Figures 5.13 and 5.14 show the outside heat transfer 
coefficient versus the temperature difference between the 
vapor and the outer wall (Ts-Tw) at atmospheric conditions. 
Data were obtained for all four materials as well as for deep 
and shallow radiussed root finned tubes. Figure 5.13 shows 
the data for the deep radiussed root tubes whereas the shallow 
radiussed root tubes data are shown in Figure 5.14. In both 
figures, the influence of the thermal conductivity of the tube 
material can be seen. As the thermal conductivity of the tube 
material increases, the outside heat transfer coefficient 
increases. This increase in the heat transfer coefficient is 
somewhat sensitive to the finned tube geometry, as can be seen 
when comparing the two figures. 

Figures 5.15 and 5.16 display the data for the three types 
of finned tube geometries used during this thesis. Two tube 
materials are shown in each figure. Figure 5.15 contains 
copper and copper nickel outside heat transfer coefficient 
data whereas Figure 5.16 shows the data for aluminum and 
stainless steel. For the higher thermal conductivity (copper) 
material, the data were higher than the lower thermal 
conductivity (copper nickel) material for all geometries. For 
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both materials, the outside heat transfer coefficient 
decreased in going from a rectangular shaped finned tube to a 
radiussed root finned tube. The root diameter of the shallow 
radiussed root finned tube (D^>b I4.38mm) is larger than the 
root diameter (D^b 13.88mm) of the deep radiussed root and 
rectangular shaped finned tubes. For the higher thermal 
conductivity materials, (i.e., copper and aluminum) the 
outside heat transfer coefficient for the shallow radiussed 
root finned was lower than the deep radiussed root finned 
tubes. In Figure 5.15 for copper nickel, no conclusions can 
be drawn between the outside heat transfer coefficient for the 
radiussed root finned tubes. For stainless steel which has 
the lowest thermal conductivity, the data in Figure 5.16 show 
that the outside heat transfer coefficient appears to be the 
same regardless of the external fin geometry. 

E. HEAT TRANSFER ENHAMCEKENT 

As described earlier in Chapter IV, the modified Wilson 
Plot procedure curve fits the raw data to determine a leading 
coefficient (C^) and an alpha (a) value for the inside and 
outside coefficients, respectively. TABLES III and IV contain 
the averaged leading coefficients and alpha values obtained 
for each tube tested for atmospheric and vacuum conditions, 
respectively. The leading coefficients and alpha values 
changed with each material, but no particular pattern or trend 
can be established. For example, for the rectangular shaped 
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finned tubes, as the tube material changes from copper to 
stainless steel, the leading coefficient for the inside heat 
transfer coefficient (Ci) changes from 3.11 to 2.10. This 
implies that circumferential wall conduction may be important 
in establishing the heat flux around the tube. Additional 
runs with smooth tubes having wall thermocouples are required 
to study the effect of the tube wall material on the leading 
coefficient and alpha values. 

An alternate method to study the experimentally obtained 
enhancement is to compare the outside heat transfer 
coefficients obtained at the same temperature difference (AT). 
The outside heat transfer coefficient data at a temperature 
difference of 30**K for atmospheric conditions and 12‘*K for 
vacuum conditions are listed in TABLES V and VI. The 
enhancement ratio for atmospheric conditions for the four tube 
materials and various finned tube geometries are tabulated in 
TABLE VII using the smooth tube outside heat transfer 
coefficient as the baseline. TABLE VIII provides similar 
ratios using Nusselt theory as the baseline. In both tables, 
the enhancement ratio decreases as the thermal conductivity of 
the tube wall material decreases. By radiussing the fin root, 
the enhancement ratio decreases except for stainless steel. 
TABLES IX and X contain similar enhancement ratios for the 
four materials under vacuum conditions. Similar trends are 
evident. 
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The experimentally obtained film temperature differences 
were used to obtain enhancement ratios from the empirical 
models of Beatty and Katz [Ref. l] and Rose [Ref. 8]| for 
rectangular shaped finned tubes. Figure 5.17 presents the 
predicted enhancement ratios for the Beatty and Katz model, 
equation (4.34), and the modified Rose model, equation (4.36), 
versus the change in fin spacing for copper, aluminum, copper 
nickel, and stainless steel tubes under atmospheric 
conditions. Figure 5.17 also contains the average 
experimentally obtained enhancement ratios for the tubes 
studied in this thesis which all had the same fin spacing of 
1.5mm. Figure 5.18 shows a similar comparison under vacuum 
conditions. At atmospheric conditions, the predicted 
enhancement ratios from the Beatty and Katz model were closer 
to the experimentally obtained enhancement ratios than those 
predicted by the modified Rose model. But under vacuum 
conditions, the modified Rose model predictions were closer, 
and in several cases, the enhancement ratios were identical to 
the data. TABLES XI and XII tabulate predicted and 
experimental enhancement ratios of the rectangular shaped 
finned tubes, under atmospheric and vacuum conditions, 
respectively. In both TABLES, the enhancement ratio decreases 
as the thermal conductivity of the tube material decreases, as 
predicted by both models. 

The Rose model [Ref. 8] was further modified to include a 
radiussed fin root, as given by equation (4.37). Using this 
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modified model, the predicted enhancement ratios were compared 
to the average experimental heat transfer enhancement ratios 
for deep radiussed root finned tubes in TABLES XIII and XIV. 
Clearly, the experimental heat transfer enhancement ratios are 
significantly lower than the enhancement ratios predicted by 
the active surface areas. TABLES XV and XVI contain a similar 
comparison for the shallow radiussed root finned tubes. 

Figure 5.19 is a comparison of the Masuda and Rose model 
[Ref. 6] (equations 2.14, 2.15, 2.37, and 2.38) for the total 
surface area and active surface area enhancement ratios for 
rectangular shaped and radiussed root finned tubes. Using the 
Fortran Program HEATCOBB, the surface area ratios for the 
copper finned tube used by Briggs, Wen, and Rose [Ref. 28] 
were reproduced in Figure 5.19. Their finned tubes had a fin 
height of 1.59mm, a fin thickness of 0.5mm, and a fin spacing 
of l.Orom and 1.5mm (although numerous theoretical spacings are 
included in Figure 5.19). Their tubes had as inside diameter 
of 9.53mm, and a root diameter of 12.7mm. In Figure 5.19, 
comparing the curves for the tube dimensions used in [Ref. 28] 
to the rectangular shaped finned tube dimensions in this 
thesis, the change in the total surface area from a 
rectangular shaped finned tube to a radiussed root finned 
(equation (2.14) minus equation (2.37)) decreased nearly twice 
the amount, 13.5% to 8.9% respectively. Also, the increase in 
the active surface area (equation (2.38) minus equation 
(2.15)) was less for the finned tube in this thesis compared 
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to the finned tube in [Ref. 28], 43% and 56%, respectively. 
TABLE XVII is a comparison of the experimentally obtained heat 
transfer enhancement ratios (where is the average 

enhancement ratio over the range of temperature differences 
based on a smooth tube of root diameter for the rectangular 
shaped finned tube and ^ is for the deep radiussed root 
finned tube of the same root diameter) and the active surface 
area enhancement ratios (where is the active area 

enhancement by dividing the unblanked finned tube surface area 
by the surface area of a smooth tube of root diameter and 
is similar but for the deep radiussed root finned tube) for 
rectangular shaped and radiussed root finned tubes. The 
values were obtained from the ratio of the aplhas listed in 
TABLE III. Rose et al (Ref, 28] felt that the small 
experimental enhancement from radiussing the fin based root 
(1.09) seemed somewhat anomalous compared to the higher ratio 
of 1.53 obtained from the active surface area ratios, and the 
data needed to be repeated. In this thesis study, the ratio 
of the heat transfer enhancement ratios for the radiussed root 
finned tube divided by the rectangular shaped finned tube were 
less than one whereas the ratio of the active surface area 
enhancement ratios was 1.38. This can be attributed to many 
things, including less total surface area for the radiussed 
root compared to [Ref. 28], less of an increase in active 
surface area when compared to [Ref. 28], the actual amount of 
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condensate retained between fins of different geometries, and 
the actual flooding angle for the radiussed root finned tubes. 

Various assumptions have been made in analyzing the data 
obtained in this thesis study, but it is evident that more 
data is required before all the mysteries associated with this 
complex condensation process can be unravelled. 


74 







« 



Figure 5.1 Overall Heat Transfer Coefficient vs Velocity 

for Smooth Tubes made of Copper Material at 
Atmospheric Conditions 
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OVERALL HEAT TRANSFER COEFFICIENT v« VELOCITY FOR SMOOTH TUBES 
MADE OF COPPER MATERIAL AT VACUUM CONDITION (Dr-1SJImm) 



. (()l.2.u<)/M) 

(on) lN3IOIdi300 U33SNVm 1V3H '11VU3AO 


Figure 5.2 Overall Heat Transfer Coefficient vs Velocity 

for Smooth Tubes made of Copper Material at 
Vacuum Conditions 13.88mm) 
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Figure 5.3 Comparison of Smooth Tubes at Atmospheric 

Conditions with Different Diameters and 
Materials 
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Figure 5.4 The Overall Heat Transfer Coefficient vs 

Coolant Velocity for Rectangular Shaped Finned 
Tubes Various Materials at Atmospheric 
Conditions (the effect of thermal 
conductivity) 
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Figure 5.5 The Overall Heat Transfer Coefficient vs 

Coolant Velocity for Rectangular Shaped Finned 
tubes Various for Materials at Vacuum 
Conditions (the effect of thermal 
conductivity) 
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COMPARISON OF RECTANOULAR SHAPED FINNED TUBES TO PREVIOUS 
FOR COPPER MATERIAL AT ATMOSPHERIC CONDITIONS (S-T.SEIDER 1 
(P P. PETUKHOV-POPOV) (TT. TWISTED TAPE) (WM) WiflE MESH] 
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Figure 5.6 Comparison of Rectangular Shaped Finned Tubes 

to Previous Data for Copper Material at 
Atmospheric Conditions (S-T (Seider Tate) and 
P-P (Petukhov Popov) inside correlations, TT 
(Twisted Tape) and WM are type of Inserts) 
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Figure 5.7 Comparison of Rectangular Shaped Finned Tubes 

to Previous Data for Copper Material at Vacuum 
Conditions (S-T (Seider Tate) and P-P 
(Petukhov Popov) inside correlations and TT 
(Twisted Tape) and WM (Wire Mesh) are type of 
Inserts) 


81 


(Tc . Tw) (deg. K) 









(OH) lN3IOIdd300 USdSNVtii 1V3H 30l8ino 


Figure 5.8 Comparison of Rectangular Shaped Finned Tubes 

to Previous Data for Aluminum Material at 
Atmospheric Conditions (Mitrou 0^= 13.7mm) (TT 
(Twisted Tape) and WM (Wire Mesh) are type of 
Inserts) 
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Figure 5.9 Comparison of Rectangular Shaped Finned Tubes 

to Previous Data for Copper Nickel Material at 
Atmospheric Conditions (Mitrou 0^.= 13.7mm) (TT 
(Twisted Tape) and WM (Wire Mesh) are type of 
Inserts) 
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COMPARISON OF RECTANGULAR SHAPED FINNED TUBES TO PREVIOUS DATA 
FOR COPPER NICKEL MATERIAL AT VACUUM CONDITIONS (MITROU- 4f-1S.7iniii) 
(TT, TWISTED TAPE) (WM. WIRE MESH) 



Figure 5.10 Comparison of Rectangular Shaped Finned Tubes 

to Previous Data for Copper Nickel at Vacuum 
Conditions (Mitrou D^* 13.7mm} (TT (Twisted 
Tape) and WM (Wire Mesh) are type of 
Inserts) 
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Figure 5.11 


Comparison of Outside Heat Transfer 
Coefficient for Rectangular Shaped Finned 
Tubes for Various Materials at Atmospheric 
Conditions 
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Figure 5.12 The Overall Heat Transfer Coefficient vs 

Coolant Velocity for Atmospheric Conditions 
(Rectangular Shaped Finned Tube (RST) vs 
Radiussed Root Finned Tubes (RRT)) for Various 
Materials 
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COMPARISON OF OUTSIDE HEAT TRANSFER COEFFICIENT FOR DEEP 
RADIUSSED ROOT FINNED TUBES OF VARIOUS MATERIALS AT ATMOSPHERIC 

CONDITIONS 



Figure 5.13 






Figure 5.14 
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Figure 5.15 Comparison of the Outside Heat Transfer 

Coefficient at Atmospheric Conditions for 
Rectangular Shaped (RST), Deep Radiussed Root 
(DRRT), and Shallow Radiussed Root (SRRT) 
Finned Tubes of Copper and Copper Nickel 
Materials 
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Figure 5.16 Comparison of the Outside Heat Transfer 

Coefficient at Atmospheric Conditions for 
Rectangular Shaped (RST ), Deep Radiussed Root 
(DRRT ), and Shallow Radiussed Root (SRRT) 
Finned Tubes of Aluminum and Stainless Steel 
Materials 
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Figure 5.17 Comparison of Heat Transfer Enhancement Data 

at Atmospheric Conditions to the models of 
Beatty and Katz [Ref. 1] and Rose [Ref. 8] for 
Rectangular Shaped Finned Tubes of Materials 
Tested 
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Figure 5.18 Comparison of Heat Transfer Enhancement Data 

at Vacuum conditions to the models of Beatty 
and Katz [Ref. 1] and Rose [Ref. 8] for 
Rectangular Shaped Finned Tubes of materials 
tested (B&K-egn(4.34) and Rose-egn(4.36)) 
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Figure 5.19 Change in Total and Active Surface Area for 

Rectangular Shaped Copper Finned Tubes (Total 
Surface Area eqn(2,14) rectangular shaped, 
egn(2.37) radiussed root) (Active Surface Area 
egn(2.15) rectangular shaped, egn(2.38) 
radiussed root) 
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TABLE ZIZ 


ZMSZDE LBADZMQ COETTZCZBETE AMD OUT8ZDB ALPEA 
VALUES TOR ATM08TBERZC COMDZTZOM8. 


Tube 

No. 

Tube Type 

Tube 

Material 

Ci 

(Atm) 

Alpha 

(Atm) 

1 



3.11 

2.19 

2 

Shallow 

Fillet 

Copper 

(Pure) 

3.08 

1.50 

3 

Deep Fillet 

Copper 

(Pure) 

3.02 

1.85 

4 

Deep Fillet 

Copper 

Nickel 

(90/10) 

2.65 

1.05 

5 

Shallow 

Fillet 

Copper 

Nickel 

(90/10) 

2.67 

1.06 

6 

Rectangular 

Fin 

Copper 

Nickel 

(90/10) 

2.67 

1.30 

7 

Deep Fillet 

Stainless 
Steel (316) 

2.26 

1.01 

8 

Shallow 

Fillet 

Stainless 
Steel (316) 

2.35 

0.98 

9 

Rectangular 

Fin 

Stainless 
Steel (316) 

2.10 

1.07 

10 

Rectangular 

Fin 

Aluminum 

(Pure) 

2.29 

1.74 

11 

Deep Fillet 

Aluminurn 

(Pure) 

2.33 

1.56 

13 

Shallow 

Fillet 

Aluminum 

(Pure) 

2.25 

1.44 

ODl 

Smooth 

Copper 

(Pure) 

2.82 

0.85 

SMTH 

Smooth 

Copper 

(Pure) 

2.80 

0.85 
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TABLE Zy. IM8IDB LBADIIIQ COETTZCZBIITB AMD OUTSIDE ALPHA 
VALUES TOR VACUUM COMDZTZOMS. 


Tube 

No. 



Tube Type 


Tube 

Material 



SMTH 


Shallow 

Fillet 


Deep Fillet 


Deep Fillet 


Shallow 

Fillet 


Rectangular 

Fin 


Deep Fillet 


Shallow 

Fillet 


Rectangular 

Fin 


Rectangular 

Fin 


Deep Fillet 


Shallow 

Fillet 


Smooth 


Copper 

(Pure) 


Copper 

(Pure) 


Copper 

Nickel 

(90/10) 


Copper 

Nickel 

(90/10) 


Copper 

Nickel 

(90/10) 


Stainless 

Steel 

(316) 


Stainless 

Steel 

(316) 


Stainless 

Steel 

(316) 


Aluminum 

(Pure) 


Aluminum 

(Pure) 


Aluminum 

(Pure) 


Copper 

(Pure) 


Ci 

(Vac) 


2.99 


2.91 



2.48 



2.42 


2.11 


2.15 


1.93 


2.00 


2.30 



2.78 


Alpha 

(Vac) 


1.50 


1.14 


1.30 


0.86 


0.83 


1.06 


0.78 


0.80 


0.77 


1.30 


1.18 


1.05 


0.81 
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TABLE V. OUTBIDS HEAT TRAMBrSR COBTFICIEIIT, (W/(■^2*K) ) , 
FOR ATMOSPHERIC COMDITIOMB FOR ATs 30*X. 


TUBE TYPE 

Copper 

Aluminum 

Copper 

Nickel 

Stainless 

Steel 

Rectangular 

33100 

24500 

18950 

14400 

Deep 

Radlussed 

26600 

22750 

15500 

14450 

Shallow 

Radiussed 

22250 

20500 

15800 

13800 

Smooth Tube 

12500 

NA 

NA 

NA 

Nusselt 

Theory 

11000 

NA 

NA 

NA 


TABLE VI. OUTSIDE HEAT TRANSFER COBFFICIEIIT, (H/(B^2*K)), 
FOR VACUUM COMDITIOMS FOR ATs 12'*K. 


Tube Type 

Copper 

Aluminum 

Copper 

Nickel 

Stainless 

Steel 

Rectangular 

22900 

20950 

16400 

13000 

Deep 

Radiussed 

20100 

18000 

13700 

11900 

Shallow 

Radiussed 

17000 

15800 

13300 

12000 

Smooth Tube 

12800 

NA 

NA 

NA 

Nusselt 

Theory 

11700 

NA 

NA 

NA 
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TABLE yZZ. BMHAMCBIIBIIT BATZO BA8BD Oil SMOOTH TUBB, 

<AT= ATM08PHBRZC COMDZTZOMS FOR 

ATS 30*^. 


Tube Type 

Copper 

Aluminum 

Copper 

Nickel 

Stainless 

Steel 

Rectangular 

2.65 

1.96 

1.52 

1.15 

Deep 

Radiussed 

2.13 

1.82 

1.24 

1.16 

Shallow 

Radiussed 

1.78 

1.64 

1.26 

1.10 


TABLE VZZZ. EMHAMCEMEIIT RATZO BASED ON MUSSELT THEORY, 

in- i^f/Kxshir ATM08PHERZC COMDZTZOMS FOR 
ATS ao^T. 


1 Tube Type 

Copper 

Aluminum 

Copper 

Nickel 

Stainless 

Steel 

1 Rectangular 

3.01 

2.23 

1.72 

1.31 

Deep 

Radiussed 

2.42 

2.07 

1.41 

1.31 

Shallow 

Radiussed 

2.02 

1.86 

1.44 

1.26 1 
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TABLE IZ. BMHANCEMEllT RATIO BASED OM SMOOTH TUBE, 
*iT= 'O* VACDOM COMDITIOMS FOR AT* 12"Z. 




Tube Type 

Copper 

Aluminum 

Copper 

Nickel 

Stainless 

Steel 


1.79 

1.64 

1.28 

1.02 

Deep 

Radiussed 

1.57 

1.41 

1.07 

0.93 

Shallow 

Radiussed 

1.33 

1.23 

1.04 

0.94 


TABLE Z. EMHAMCEMEMT RATIO BASED OM MUSSELT THEORY, 
^4T= <N/*»wss)4t» VACDDM COMDITIOMS FOR ATss 12®K. 


Tube Type 

Copper 

Aluminum 

Copper 

Nickel 

Stainless 

Steel 


1.96 

1.79 

1.40 

1.11 

1 Deep 

Radiussed 

1.72 

1.54 

1.17 

1.02 


Shallow 

Radiussed 


1.45 


1.35 


1.14 


1.03 












































TABLE XI. BMKXIICEIIBMT RATIO AVBRAaSO OVER THE RANGE 07 AT TOR 
RECTANGULAR 8HAPBO TINNED TUBES TOR ATM08TRBRIC 
CONDITIONS BASED ON NUS8ELT THEORY, 


Tube 

Material 

Tube No. 

eqn (4.34) 



Copper 

1 

2.71 

1.97 

3.05 

Aluminim 

10 

2.62 

1.91 

2.40 

Copper 

Nickel 

6 

2.25 

1.61 

1.79 

Stainless 

Steel 

9 

1.61 

1.14 

1.47 


TABLE XII. ENHANCEMENT RATIO AVERAGED OVER THE RANGE OT 

AT TOR RECTANGULAR SHAPED TINNED TUBBS TOR 
VACUUM CONDITIONS BASED ON NU88BLT 
THEORY, 4^,= (hf/*»wss>4T- 


D Tube 

1 Material 

Tube No. 

«BIC 

eqn(4.34) 

0 

^Rose 

eqn (4.36) 


Copper 

1 

2.73 

1.85 

2.07 

Aluminum 

10 

2.62 

1.78 

1.79 

Copper 

Nickel 

6 

2.23 

1.47 

1.45 

Stainless 

Steel 

9 

1.59 

1.00 

1.06 
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TABLE ZIXZ 


BiniAlICBlISliT RATIO AVERAOBD 07BR THE RAMGB OF 
AT TOR DEBT RAOZU88ED ROOT FZEHID TUBER FOR 
ATM08PEBRIC COMDITZOM8 BASED OM MDSSELT 
THEORY, <V**«»s>4T* 


Tube 

Material 

Tube No. 

Modified* Rose 
eqn (4.40) 


Copper 

3 

4.45 

2.53 

Aluminum 

11 

4.33 

2.14 

Copper 

Nickel 

4 

3.56 

1.42 

Stainless 

1 Steel 

7 

2.31 

1.38 


TABLE ZZV. ENHANCEMEHT RATIO AVERAGED OVER TEE RANGE OF 

AT FOR DEEP RADIU88ED ROOT FINNED TUBES FOR 
VACUUM CONDITIONS BASED ON NU8SELT THEORY, 


1 Tube 

Material 

Tube No. 

Modifi^ Rose 
eqn (4.40) 

(^exp^^MUSS^ 1 

Copper 

3 

4.31 

1.79 1 

Aluminum 

11 

4.17 

1.62 1 

Copper 

Nickel 

4 

3.35 

1.18 

Stainless 

Steel 

7 

2.11 

1.07 
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TABLE XT. EMHANCBMSIIT RATIO AVERAGED OVER THE RAHOE OE AT FOR 
SHALLOW RA0IU88ED ROOT riHHED TUBES FOR ATMOSPHERIC 
COMDITIOMS BASED OM HU88ELT THEORY, <>*f/Nuss> AT* 


1 Tube 

1 Material 

Tube No. 

Modifi^^ Rose 
egn (4.40) 


Copper 

2 

3.75 

2.06 

Aluminum 

13 

3.68 

1.98 

Copper 

Nickel 

5 

3.20 

1.45 

Stainless 

Steel 

8 

2.20 

1.36 


TABLE XVI. EMHAMCEMEMT RATIO AVERAGED OVER THE RANGE OF 

AT FOR SHALLOW RADIU88ED ROOT FIMMED TUBES FOR 
VACUUM COMDITIOMS BASED OM MU88ELT THEORY, 


Tube 

Material 

Tube No. 

Modified Rose 
eqn (4.40) 


Copper 

2 

3.64 

1.57 

Aluminum 

13 

3.57 

1.45 

Copper 

Nickel 

5 

3.07 

1.16 

Stainless 

Steel 

8 

2.10 

1.09 


101 



















































TABLE ZVII. COMPARSIOM OF ACTIVE SURFACE AREA EMHAMCEMEMT 

RATIOS TO EXPERIMENTALLY OBTAINED HEAT 
TRANSFER ENHANCEMENT RATIOS. 


Tube 

Material 



eqn (2.38) 

■EMI 

<*./«** 

**T.r/ f*T 1 

Cu Rose 
[Ref.28]^ 

0.92 

2.77 

1.41 

3.03 

1.53 

1.09 

Cu 

0.74 

2.57 

1.02 

2.17 

1.38 

0.84 

A1 

0.74 

2.05 

1.02 

1.84 

1.38 

0.90 

1 CN 

0.74 

1.53 

1.02 

1.19 

1.38 

0.75 

1 ss 

0.74 

1.26 

1.02 

1.18 

1.38 

0.94 


^Briggs, Wen, and Rose [Ref.28] tested a copper 
rectangular shaped finned tube with the following geometry; 
root diameter,D^, of 12.7mm; inside diameter ,D,, of 9.82mm; 
fin height of 1.59mm; fin spacing of l.5mm; fin thickness of 
0.5mm. The values were taken directly from Table 1 of [Ref. 
28] . 
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VI. C01ICLU8Z0M8 AMD RBC0II11EMDATI0M8 


A. COMCI 1 U 8 ZOM 8 

Steam condensation data were obtained for rectangular 
shaped finned tubes (D^»13.88mm), deep radiussed root finned 
tubes (D^»13.88inm), and shallow radiussed root finned tubes 
(D^»14.38mm) made of copper, aluminum, copper nickel (90/10) 
and stainless steel (316) under both vacuiim and atmospheric 
conditions. All tubes had a fin thickness of 1.0mm, fin 
spacing of 1.5mm and outer diameter (D 0 )of 15.88mm. Based 
upon these measurements, the following conclusions are made: 

1. Reliable baseline data have been obtained for finned 
tubes of copper, aluminum, copper nickel (90/10) and 
stainless steel (316). 

2. For finned tubes, the thermal conductivity of the fin 
wall material had a significant effect on the 
condensation heat transfer coefficient. In fact, for 
the case of stainless steel, with it's poor thermal 
conductivity, a finned tube can perform worse than a 
smooth tube. 

3. In going from a rectangular shaped fin to a radiussed 
root fin of the same root diameter, the condensation 
heat transfer coefficient decreased. This effect was 
more pronounced for high conductivity materials, and no 
notable change was observed for stainless steel tubes. 

4. For rectangular shaped fins, the experimentally 
determined heat transfer enhancement ratio for copper 
at atmospheric pressure was found to be larger than 
that predicted by Beatty and Katz [Ref. 1] and by a 
modified version (to include fin efficiency) of Rose 
[Ref. 8 ]. For the other materials tested, as the 
thermal conductivity decreased, the data fell below the 
Beatty and Katz model and approached closer to the Rose 
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model. Under vacuum conditions, the data for all four 
materials were in much closer agreement to the Rose 
model and significantly below Beatty and Katz. 


5. For a radiussed root finned tube, the experimentally 
determined heat transfer enhancement ratio for all 
tubes under both atmospheric and vacuum conditions was 
significantly less than predicted by the Rose model as 
modified to include a radiussed root fin geometry. 
Additional experimental data are required to determine 
better empirical constants that are utilized in the 
Rose model. 


B. RECOMMENDATIONS 

1. Retest each tube to obtain additional data in order to 
determine the empirical constants used in the Rose 
model [Ref. 8]. 

2. Manufacture new tubes with the same root diameter 
(13.88mm), tube materials and dimensions, but with a 
larger fin height of 2.0mm. After testing each tube, 
reduce the tube height for the next set by milling 
0.25mm off. Continue this process down to a new fin 
height that is half the fin spacing. 

3. Manufacture new tubes with a fin height of 2.0mm but 
change the fin spacing to 1.0mm. After each data test 
set mill 0.25mm off the fin height down to a new height 
of 0.5mm. 

4. Manufacture new tubes with a fin height of 2.0mm and 
fin spacing of 1.5mm but change the fin thickness to 
0.5mm. After each data set mill 0.25mm off the fin 
height down to a new fin height of 0.75mm. 

5. Manufacture smooth tubes of aluminum, copper nickel 
(90/10) and stainless steel (316) for comparison with 
the smooth copper tube to determine the effect of the 
tube wall thermal conductivity on the leading 
coefficient (Ci) and the alpha (a) for determining the 
enhancement of the corresponding finned tubes. 

6. Examine the Rose model [Ref. 8] in closer detail in 
order to refine the assumptions made and increase its 
validity. 
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7. Recalibrate and verify the operation of each measuring 
device in the system apparatus. While the system is 
disassembled, check and align the test section to 
ensure horizontal orientation. 

8. Modify the apparatus by installing a pressure regulator 
for the auxiliary condenser cooling water. 

9. Install a bi-metallic thermocouple and a control 
operated valve in the coolant water svimp to maintain a 
constant temperature of the coolant entering the test 
tube. 

10. Install a digital voltmeter to monitor the emf signal 
from the electrical switchboard to the data acquisition 
unit. 

11. Provide removal lagging pads for the boiler and the 
test section to reduce the influence of the 
environment. 
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APPSMDZZ A. DATA COLLBCTKm LZBTIlfO 


The program DRPALL, which was used to collect and 
reprocess all data, is listed in this Appendix. 
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10001 
I 00 1 * 
t00e< 

10071 
10091 
10101 
10111 
i0i: I 
1013' 
10141 
1015' 
10171 
1993 ) 
1018' 
1019' 
1020' 
1021 I 
1022' 
1023' 
1024 1 
1025' 
1026' 
10271 
1023' 
1029' 

10301 

1031 ' 
1032' 
1033' 
1034 1 
1035' 

1036 ( 

1037 ( 

1038 ( 

1039 ( 

1040 ( 

1041 ( 

1042 [ 

1043 ( 

1044 ( 


ORPALL 

complete RE'JISION JULY 1993 < MEMORY) 

MODIFIED: SEP 1992 (O’KEEFE) 

MODIFIED: JAN 1993 <L0N6 ) 

MODIFIED: JUNE 1993 (COBB) 

TO BE USED WITH NON-INSTRUMENTED TUBES ONLY 

TAKES DATA IN THE FORMAT OF SUENSEN/O’KEEFE/LONG/COBB 

CAN REPROCESS ANY NON-INSTRUMENTED DATA 

this PROGRAM WAS USED TO COLLECT ALL THE NON- 

INSTRUMENTED DATA TAKEN BY LONG (JAN-JUN 1993) FOR TITANIUM TUBES 

AND THE finned TUBE DATA (RECTANGULAR AND FILLET RADIUS) OF COBB (JUN-SEPT 

) 

meaning of all flags in program 

IFT: FLUID TYPE 

ISO: OPTION UITHIN PROGRAM 

IM: input mode 

IWIL: UALUE OF Ci USED 
IFG: FINNED OR SMOOTH 

INN: insert TYPE 

lUT: LOOP NO. UITHIN PROGRAM 

IUTH; alternative CONDENSER TUBES 
IMC: TUBE MATERIAL 

ITDS: TUBE DIAMETER 
IPC: PRESSURE CONDITION 

INF: DIMENSIONLESS FILE REO'JIRED 

IPF: plot file REQUIRED 

lOU: OUTPUT REQUIRED 

IHI: INSIDE HTC CORRELATION 

IOC: OUTSIDE HTC THEORY/CORRELATION 

COM /Cc/ C(7 ) 

COM /Cc55/ T55(5) 

COM /Cc56/ T56(5) 

COM /Cc57/ T57(5) 

COM /Cc58/ T58(5) 

COM /Fid/ Ift .Istu 
DIM Enf(20),Tw(6 ) 

COM /Pr/ Qpa(42).Tfn(42 ) ,Tfnr ,Ipc .Opr 

COM /Ui1/ Nrun.Itn.Iwth.Imc.Ife.Ijob.Iud.Ifg.Ipco.Ifto.Iuil.Ihi.Ioc ,Inan ,K 


cu ,Rexp ,Rn ,Ax 


COM /Geotn/ D1 ,D2 ,Di .Do ,L .L1 .L2 

COM /Fnc/. Istuo . Inn .Ityp .'Ju .Inane .Iwco . ltd* 

DATA 0.10086091.25727.94369.-767345.8295,78025595.31 
DATA -9247486589,6.97688E-*-11 ,-2.661 92E+13 .3.9407SE+1 4 
READ C(*> 

DATA 273.15.2.5943E-2.-7.2671E-7.3.2941E-11 .-9.7719E-16 .9.7121E-20 
READ T55v * ) 
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105: DATA 273.15.:.5879E-:.-5.98535-^.- 3 . 1 : 4 : 5-11 ,1.32755-14,-1.01365-18 

1053 READT56C) 

1054 DATA :73.15,2.59235-2 .-7.39335-7 ,2.86255-11 .1.97175-15,-2.24865-19 

1055 READ T57(.) 

1056 DATA 273.15,2.59315-2 .-7.5:325-7.4.06575-11 .-1.27915-15 .6.44025-20 

1057 READ T58'. •' 

1053 Dr*.015875 ' Outside diameter of the outlet end 

1059 D5sp*.l524 I Inside diameter of stainless steel test section 

1060 Ax*PI*Dssp'2/4 

1061 A1d2-0. 

1062 L*. 13335 • Condensing length 

1063 LI*.060325 ' Inlet end “fin length" 

1064 L2*.034925 • Outlet end "fin length" 

1065 PRINTER IS 1 

1066 BEEP 

1067 PRINT IJSIN 6 “4X.““Select option:. 

1069 PRINT USINij ''6X,’'" 0 Take data or re-process previous aata 

1084 PRINT USING "BX,'" 1 Print raw data""" 

1090 PRINT USING “SX,"“ 2 UILSCN Analysys""" 

1093 PRINT USING “6X.“" 3 MODIFY""" 

1096 PRINT USING "SX."" 4 PURGE. 

110 : PRINT USING “SX."" 5 RENAME. 

1103 PRINT USING "SX,"" 6 MERGE FILES" 

1104 PRINT USING "oX."" 7 X Y PLOT DATA OUTPUT”"" 

1106 INPUT Iso 

1108 I50*ls0+1 

1111 IF Iso>l THEN 3094 

1112 BEEP 

1115 INPUT “SELECT FLUID <O-UATER . I-R-113. 2*55)".Ift 

1116 Ifto-Ift 

1117 BEEP 
IMS I j ob“0 

1119 INPUT “ENTER INPUT MODE <0*3054A , 1*FILE )" , Im 

1120 Im*Im+1 

1123 BEEP 

1124 IF Im*i THEN 

1126 INPUT "ENTER MONTH, DATE AND TIME (MM:DD:HH:MM:SS )" .DateS 
1129 OUTPUT 709!“TD“?Date$ 

1132 OUTPUT 709;"TD" 

1133 ENTER 709;Date$ 

1135 END IF 

1136 IF Ijob-1 then 
1138 BEEP 

1141 INPUT "SKIP PAGE AND HIT ENTER" .Ok 

1144 END IF 

1145 PRINTER IS 701 

1146 IF Im-1 THEN 

1148 ENTER 709;Date* 
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Month, date and tine :"iDateS 


!5a 
151 
153 
156 
171 
174 
186 
139 
192 
195 
198 
201 
304 
207 
210 
21 1 
212 
216 
217 
213 

219 

220 

221 

n 

4 . *. 4 . 

227 

223 

231 

234 

235 

236 

238 

239 

241 

242 

249 

250 

252 

253 

255 

256 

257 

258 

259 

260 
261 
262 
263 


PRINT 
END IF 
PRINT 

PRINT USING “10X.“"NOTE: Rrogran nane : DRPftLL"““ 

IF Ijob-t THEN 1189 
BEEP 

INPUT "SELECT <Ci:0-FIND . 1-STORED Ci)“.Iwil 
IF In-l THEN 
BEEP 

INPUT “6IUE Pi NAME FOR THE RAW DATA FILE” .D_f i le* 

PRINT USING ■‘lGX."“Fiie nane : “" . 1 4A“; D_f i leS 
CREATE SCAT D_file*.30 
ASSIGN SFile TO D.fileS 
BEEP 

INPUT "ENTER GEOMETRY CODE <1-FINNED .0-PLAINIfg 
Inn-0 

PRINTER IS 1 
BEEP 

PRINT " ENTER INSERT TYPE:" 

PRINT " 0-NONE (DEFAULT)" 

PRINT “ 1-TWISTED TAPE- 

PRINT " 2-WIRE WRAP" 

PRINT " 3-HEATE:<" 

INPUT Inn 

OUTPUT SFilesIfg.Inn 

Iwt-0 ' FOR UNINSTRUMENTED TUBE 

Fh-0 

Fp«0 

F|4-0 

l8tu-0 

latuo-Istu 

IF Ifg-0 THEN 1241 

INPUT "FIN PITCH. HEIGHT AND WIDTH IN MM, Fp,Fh .Fu" .Fp .Fh .Fu 
OUTPUT 9File5lut ,Fp,Fw ,Fh 
ELSE 
BEE? 

PRINTER IS 1 

PRINT " STUDENT’S DATA TO BE REPROCESSED:" 

PRINT " 0-SWENSEN/O’KEEFE/LONG/COBB (DEFAULT)" 

PRINT " 1-UAN PETTEN/MITR0U/C0UMES/6UTTEND0RF" 

INPUT latu 
latuo-Istu 
BEEP 
PRINT 

IF l5tu-1 then 

PRINT " STUDENT NAME:" 

PRINT " 0-UAN PETTEN" 

PRINT " 1-MITROU" 
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1254 

PRINT " 

2-COUMES" 

1265 

PRINT '• 

3-5UTTEND0 

1266 

ELSE 


1267 

PRINT " 

4-5WENSEN" 

1263 

PRINT “ 

5-0’KEEF5" 

1269 

PRINT " 

G-LONS" 

1270 

PRINT “ 

7-COBB" 

1271 

END IF 


1272 

INPUT Inan 


1273 

Inano-1 nan 



1277 BEEP 

1273 INPUT “GIUE THE NPHE OF THE EXISTING DHTft FILE" .D_fileS 
1279 PRINTER 15 701 


1280 

EN. 

IF 

Inan-0 

THEN 

PRINT 

USING 

■16X .""Data 

tal' en 

by 


UAN PETT 

129! 

IF 

Inan-1 

THEN 

PRINT 

USING 

"I6X .■•"Data 

talen 

by 


MITROU" ■' 

1282 

IF 

Inan-2 

THEN 

PRINT 

USING 

"16X .-“Data 

taken 

by 


COUME5"" 

1233 

RF. 

IF 

Inan=3 

THEN 

PRINT 

USIN': 

"16X .""Data 

taken 

by 


GUTTENDO 

1284 

IF 

Inan-4 

THEN 

PRINT 

USING 

■■ 1SX ,“"Data 

taken 

by 


SUENSEN" 

1285 
>1 •« 

IF 

Inan-5 

THEN 

PRINT 

USING 

"16X .""Data 

taken 

by 


O’KEEFE- 

1286 

IF 

I nan-6 

THEN 

PRINT 

USING 

" 16X ,""Data 

tak en 

by 


LONG" "■■ 

1287 

IF 

Inan-7 

THEN 

PRINT 

USING 

" 15X .""Data 

tak en 

by 


COBB""" 

1288 

FRI 

NT USING "16X,""Thi5 analysis done on fil« 

1 • ** 

,!0A";D_flies 


1289 PRINTER IS I 

1290 BEEP 

1291 INPUT "ENTER NUMBER OF DATA SETS STORED" ,Nrun 

1292 ASSIGN SFiie TO D.file* 

1293 ENTER SFile?Ifg .Inn 

1294 IF l5tu-0 THEN 

1295 ENTER 9File!lwt .Fp .Fu.Fh 

1296 ELSE 

1297 IF Ifg-0 THEN ENTER 9File;Iwt 

1298 IF Ifg-1 THEN ENTER 9File;Fp,ru ,Fh 

1299 END IF 

1300 END IF 

1301 IF l5tu-1 AND Inn-1 THEN Inn-2 

1303 IF Ijob-1 THEN 1537 

1304 IF lft>0 THEN 1349 

1305 BEEP 

1306 PRINTER IS 1 

1307 PRINT USING "4X , ""Selsct tube type:""" 

1328 PRINT USING "6X.*"0 SMOOTH TUBE""" 

1329 PRINT USING "SX.""1 FINNED TUBE :RECTANGULAR ). 
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1333 P9INT IJ5INS 'BX,"-: WIRE-WRPiPPED SMOOTH TUBE.. 

•331 PRINT U5ING ■5X.-''5 LPD KOROOENSE TUBE"““ 

133 ; PRINT USING ■•6X."“4 UIRE-UIRAPPED LPO KOROOENSE TUBE 

1333 PRINT USING ■■6X,-"5 MHT KOROOENSE TUBE ’ “ 

1334 PRINT USING '•ex, “■•6 WIRE-URAPPED MHT KOROOENSE TUBE 
133B PRINT USING "SX.“"7 FINNEO TUBE <SHALLOW FILLET'"”" 

1337 PRINT USING "6X."”8 FINNED TUBE <DEEP FILLET 

1338 INPUT Ityp 

1339 PRINTER IS 701 
'340 BEEP 

1341 PRINTER IS 1 

I34Z PRINT USING •■4X "Select Material Code:""" 

1343 PRINT USING “SX.""0 COPPER 1 STAINLESS STEEL"““ 

1344 PRINT USING "6X,""2 aluminum 3 90:10 CU/NI""" 

1345 PRINT USING "6X.""4 TITANIUM ""“ 

1345 INPUT Itnc 

1347 Inco"Imc 

1349 printer is 1 

1550 BEEP 
1351 Itds»l 

1353 PRINT USING "4XSELECT TUBE DIA TYPE:. 

1357 PRINT USING "SX/'-O SMALL. 

13G0 PRINT USING "BX,""1 MEDIUM <DEFAULT)""" 

1363 PRINT USING "6X LARGE. 

1364 PRINT USING "6X.""3 SMALL (COBB)""" 

136' PRINT USING "6X."'4 OTHER (LPO/MHT) 

1368 INPUT Itds 

1373 IF (Ityp-0 OR Ityp-1 OR Ityp-Z) ANC Imc=0 THEN 
1375 IF Itds-0 THEN 
13'S Di-.009535 

1377 Do*.0137 

1378 END IF 

1379 IF Itds-1 THEN 

1380 D 1-.0127 

1381 Do-.01905 

1383 END IF 

1384 IF Itd9-2 THEN 

1385 D 1-.0127 

1386 Do-.025 

1387 END IF 

1388 IF Itd9-3 THEN 

1389 D1-.0127 

13901 Do-.01388 'DEEP DEPTH 

1391 Do-.01438 'SHALLOW DEPTH 

1393 END IF 

1394 IF Itds-4 THEN 

1395 PRINT USING "6X.’"ERROR - NO COPPER LPD/MHT""" 

1396 END IF 


115 










t3S7 £\C IF 

>338 IF (ItyD*' OR It/P“2' i^ND Ita9»3 THEN 
>399 Di-.3!:7 

>400 Do«.0i3B3 

1402 END IF 

>403 IF Ityo^T and I*.d9*3 THEN 

1404 Ol»,0i:7 

1405 Do-.0'438 
1405 END IF 

1408 IF (Ixy3«3 OR IX/p»4> AND Imc*4 THEN 

1409 Di».01347 

1410 Do».01585 

1411 end IF 

1457 IF : ltyp*0 OR I*yp*Z‘ AND Imc“4 THEN 

1459 Do*.0'585 

1459 Di«.31wo6 

1460 END IF 

1461 IF (Ityn"5 OR Ityp*5) AND Inc*4 THEN 

1452 Do-.01537 

1463 Di*.01353 

1465 END IF 

1467 D1-.01905 

1453 DZ*.'3i5o5 

1478 IF Itds-3 OR Itas-A THEN D1«.01535 

1484 IF (Ityp-0 OR It/p-2) AND Imc-4 THEN 01-,01535 

1492' thermal CONDUCTIVITIES TAKEN FROM '•THERMOPHYSICAL PROPERTIES OF MATTER" 
'493' THE TPRC DATA SERIES - VOLUME 1 

1494 IF Inc^O then Kcu^SSO-B 

1495 IF I"ic*l Then Kc'j*14.3 

1496 IF I:^c-2 '^HEN Kcu-23l .8 

1497 IF Imc”3 THEN Kcu*55.5 

1498 IF Inc“4 "HEN •<:u"l8.9 

1499 Rri*0o*L06< Qo/Di )/(2*Kcu ) ' Wail resistance based on outside area 
1501 BEEP 

1504 INPUT "ENTER PRESSURE CONDITION (0-V , 1-A )" ,Ipc 

1507 Ipco“Ipc 

1508 Inf-0 
1510 BEEP 

1537 Ife-l 

1538 PRINTER IS 701 

1543 PRINT USING "lGX,""Thi9 analysis includes ena-fin effect""" 

1546 PRINT USING ■16X,""Thernal conductivity - ““,3D.D,"“ (U/n.K )""";Kcu 

1549 PRINT USING " 1 6X,"“Inside diameter, Di - ““,DD.DD,"" (nm>"“"iDi* 1000 

1552 PRINT USING " 1 5X ,“Out SI de diameter. Do - "".DD.DO,"" ( mm 1 .;Do*1000 

1556 Ihi-0 

1557 PRINTER IS 1 

1558 PRINT " SELECT INSIDE CORRELATION:" 

1559 PRINT •• 0-5IEDER-TATE (DEFAULT)" 
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1560 

PRINT ■' 

1-SLEICHER-ROUSE •• 




'55! 

PRINT 

2-PETUKHCU-POPOU" 




15B: 

input Ihi 




1563 

IF lhi«0 

then 




1564 

BEEP 





1 565 

INPUT 

SELECT REVNOLDS EXPONENT" ,Rexp 




1567 

END IF 





1563 

IOC-0 





1563 

BEEP 





1570 

PRINT 





1571 

PRINT " 

SELECT OUTSIDE THEORY/CQRRELATION FOR WILSON 

ANALYSI 

C • “ 

. w • 


1572 

PRINT " 

0-NUS5ELT THEORY (DEFAULT>“ 




1573 

PRINT '■ 

1-FUJII <197S) CORRELATION" 




1574 

INPUT loc 




1575 

BEEP 





1576 

Itin“1 





1577 

PRINT 





1578 

PRINT " 

SELECT COOLANT TEMPERATURE RISE MEASUREMENT:' 




1579 

IF Istu-Z 

1 THEN PRINT " 0-5IN6LE TEFLON T/C" 




1580 

PRINT 

1-quart: thermometer (DEFAULT)" 




1531 

PRINT '■ 

2-10-JUNCTION THERMOPILE” 




1532 

INPUT Itn 




1583 

PRINTER IS 701 




1584 

IF ltn*0 

THEN PRINT USING "16X,"“This analysis uses the 

SINGLE 

TEFLON 

T/C 

readings. 





1585 

IF Itn*l 

THEN PRINT USING "lSX,"“Thi5 analysis uses the 

QUARTZ 

THERMOMETER 

readings" ' “ 





1586 

IF Itn»2 

THEN PRINT USING "l6X,""Thi5 analysis uses the 

10-JUNCTION THERMO 

PILE 

'•eadings “ “ 

" 




1587 

Iic“1 ' F 

OR MODIFIED WILSON 




1586 

IF Iha-0 

AND Inn-0 THEN Ci-.027 




1591 

IF lhi«0 

AND Inn-2 THEN Ci-.05 




1592 

IF Ihi-0 

AND Inn-3 THEN Ci-.07 




1594 

IF Ihi-I 

OR Ihi-2 THEN 




1595 

IF Inn 

-0 THEN Ci-1.0 




1597 

IF Inn 

-2 then Ci-2.0 




1598 

IF Inn 

-3 THEN Ci-2.5 




1599 

END IF 





1601 

IF Iuil“l 

THEN 




1602 

BEEP 





1 603 

INPUT 

“ENTER Cl IF DIFFERENT FROM STORED UALUE'.Ci 




1604 

END IF 





1605 

PRINTER IS 701 




1606 

IF Ihi-0 

THEN PRINT USING "16X ,"“Modifled Sieder-Tate coefficient - 

““ .z 


.4D";Ci 

1607 IF Ihi-0 THEN PRINT USING ’I6X"Chosen Reynolds No. exponent * "".0 

.DO”iRexp 

1608 IF Ihi“1 THEN PRINT USING ”16X ,"“Modifled Sleicher-Rouse coefficient ■ " 
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".Z.4D";Ci 

1603 IF Ihi*2 PRINT iJSiNG ” 1 Sa , “ "Moui f led Petul; hov-Popov coefficient * “ 

'• ,2.4D";Ci 

1610 lnn*0 THEN PRINT USING " 16X ,"Usmg no insert inside tube. 

1611 IF Inn*2 THEN PPIN~ USING " 16X , “ “Usmg uire wrap insert mside tube. 

1612 IF Inn*3 THEN ORINT USING "loX,“"Using HEATEX insert inside tube. 

1620 IF Iic-1 THEN Ac-0. 

1621 BEEP 

1622 IF Ijob-1 THEN 1643 

1623 PRINTER IS 1 

16241 INPUT "NnME FOR A TENPORAPY PLOT FILE (TO BE PURGED)" ,P_fileS 

1625 P_f lies- "DUMMY" 

1626 bIeP 

1634 CREATE BDAT P_fileS.30 
1644 ASSIGN 9Filep TO P_file$ 

1648 IF Ijob-1 then 
1651 Iov-1 

1654 SOTO 1667 

1657 END IF 

1660 BEEP 

1661 INPUT "SELECT OUTPUT (0-SHGRT. 1*L0NGr'.Icv 

1666 Iov-Iov*t 

1667 PRINTER IS 70! 

1672 IF Ityp-0 THEN PRINT USING "16X , ““Tube Enhancement : SMOOTH TUBE. 

1673 IF Ityp-I then PRINT USING “l6X,"“Tube Enhancement : RECTANGULAR FINNED 

TUBE. 

1674 IF Ityp-2 THEN PRINT USING “ 16'X .“ “Tube Enhancement : UIRE-URAPPED SMOOTH 

TUBE. 

1675 IF Ityp=3 THEN PRINT USING “16X,"“Tube Enhancement : LPD KORODENSE TUBE" 

1678 IF Ityp-4 THEN PRINT USING “16X,“"Tube Enhancement : UIRE-WRAPPED LPD KO 

RODENSE TUBE. 

1679 IF Ityp-5 THEN PRINT USING “16X,““Tube Enhancement : MHT KORODENSE TUBE" 

1680 IF Ityo-6 THEN PRINT USING “l6X,“"Tube Enhancement : WIRE-WRAPPED MHT KO 

RODENSE TUBE. 

1681 IF Ityp-7 THEN PRINT USING “l6X,““Tube Enhancement : SHALLOW FILLET FINN 

ED TUBE. 

1682 IF Ityp-8 THEN PRINT USING "16X,““Tube Enhancement : DEEP FILLET FINNED 

TUBE. 

1683 BEEP 

1684 IF Inc-0 THEN PRINT USING "16X,""Tube material : COPPER. 

1685 IF Imc-1 THEN PRINT USING "1GX.""Tube material : STAINLESS-STEEL. 

1686 IF Inc-2 THEN PRINT USING "16X,""Tube material : ALUMINUM. 

1687 IF Imc-3 THEN PRINT USING "15X."“Tu0e material : 90/10 CU/NI“““ 

1688 IF Inc-4 THEN PRINT USING "16X.""Tube material : TITANIUM""" 

1689 IF Ipc-0 then print USING "1GX"Pressure condition : VACUUM""“ 

1690 IF Ioc-1 THEN PRINT USING "16X,“"Pressure condition : ATMOSPHERIC 
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lS3i' PRINT USING “ISX.-'Fin pitch, width, and height •'wn ): “ “ ,DD. OD .2X ,Z . DO ,2X , 
Z.DD-;Fp ,Fw.Fh 

1692 IF Iuil-0 AND Im-2 THEN 

1693 IjoD“l 

1694 Iwd*l 

1696 CALL Uilson(Ci ) 

1699 END IF 
1702 J-0 

17:2 IF lov-t THEN 

1722 PRINT 

1723 IF Ihi*1 then 


1724 

PRINT 

USING “10X.““Data 

Uu 

Uo 

Ho 

Qp Tcf 

Ts 

Re>p“ “ '■ 






1725 

PRINT 

USING “10X t 

(n/a ) 

(U/n -2-K ) 

(W/m'2-K ) 

(W/n*2) (C> 

(C ) ( 

S-R). 






1726 

ELSE 






1728 

PRINT 

USING "10X ."'Data 

Uw 

Uo 

Ho 

Op 

Tcf 

Ta. 






1729 

PRINT 

USING 10X t 

< n/a > 

(y/n-2- 

K) (U/m'2 

-K > (U/m ‘2> 


(c) (c) “ 

1730 END IF 
1740 END IF 
1747 Z.<-0 

1750 Zx2-0 

1753 Zxy-0 
1756 Zy-0 
1759 Sx-0 

1762 Sy-0 

1765 5.X5-0 

1763 Sxy-0 

1771 Go_oh«1 
1774 Repeat:i 
1777 J-J+1 

1780 IF Irt-I THEN 


1783 

BEEP 


1786 

INPUT "LIKE TO CHECK NG CONCENTRATION 

1789 

IF J-1 THEN 


1792 

OUTPUT 709;“AR AF40 

AL41 UR5" 

1795 

OUTPUT 709;"AS 5A" 


1798 

END IF 


1801 

BEEP 


1804 

INPUT "ENTER FLOWMETER 

READING*,Fn 

1807 

OUTPUT 709;"AR AF60 AL6 

2 UR5" 

1810 

OUTPUT 709;"AS SA" 


1813 

ENTER 709;Etp 


1816 

OUTPUT 709;"AS SA" 


1819 

BEEP 


1822 

INPUT "CONNECT U0LTA6E 

LINE" .Ok 
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13:5 ENTER 70g;Bvol 

1828 SEcF 

1831 INPUT “DISCONNECT UOLTAGE LINE" .Ok 

I SS'I IE Bvol..l THEN 

1837 BEEP 

1 343 BEEP 

1343 input “INUALID UOLTAGE. TRY AGAINi“.Ok 

1846 GOTO 1919 

1849 END IF 

1853 OUTPUT 709;'AS SA" 

186! ENTER 709;BaPiD 

1862 Etp-Etp*1.E+B 

1863 OUTPUT 709;“AR AF40 AL47 UR5' 

1874 Nn»7 

1876 FOR 1-0 TO Nn 

1879 OUTPUT 709;"AS SA" 

1885 Se-0 

1988 FOR K-1 TO 10 

1891 ENTER 70S;E 

1 894 Se-Se+E 

1897 NEXT K 

1900 Ewf<I )-ABS(Se/10 ) 

1916 Emf ( I )-Ei*tf < I >* 1 .E+6 

1918 NEXT I 

1921 OUTPUT 709;"AS SA" 

1924 OUTPUT 7!3;"T!R2£" 


1927 WAIT 2 

1930 ENTER 713;Til 

1933 OUTPUT 713; ■•T2R2E" 

1936 WAIT 2 

1939 ENTER 713;T2 

1942 OUTPUT 713;"T1R2E‘ 

1945 WAIT 2 

1948 ENTER 713;T12 

1951 T1-(T11+T12 )*.5 

1954 OUTPUT 713;"T3R2E" 

1960 BEEP 

1970 INPUT "ENTER PRESSURE GAGE READING (PQa)".Pga 

1971 Pvap1-Poa*6894.7 • PSI TO Pa 

1972 OUTPUT 709;"AR AF64 AL64 VR5" 

1973 OUTPUT 709;“AS SA" ' PRESSURE TRANSDUCER 

1974 Ss-0 

1975 FOR K-1 TO 20 

1976 ENTER 709;Etran 

1977 Ss-Sa+Etran 

1978 NEXT K 

1979 Ptran-ABS<Ss/20> 

1960 BEEP 

1981! PRESSURE IN Pa FROM TRANSDUCER 
1982 Pvap2-< -2. 93604*Ptran+14.7827 )*6894.7 

1985 ELSE 

1986 IF Istu-0 then 

1989 ENTER 9FileiBvol ,Banp ,Etp .Pm ,T1 .T2 .Pvapi ,Pvap2 ,Emf(* ) 

1990 ELSE 
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199 : 
n» ,T 1 
199A 

1996 

1997 

1998 

1999 

zeee 

2802 

2003 

2008 

2009 

2010 
201 1 
2012 
2015 
2023 

2038 

2039 

2042 

2043 

2044 

2045 

2046 
2048 
2050 
2053 
2063 
2081 
2082 

2083 

2084 

2085 

2087 

2088 

2090 

2091 
2092! 
2098 
2104 
2121 
2122 

2123 

2124 

2125 

2126 

2127 

2128 


EN'^ER 0Fi le ;Bvol .Bamo .^tran .Etp.EmfiOI.Ewff 1 ),Efnf(2),Ewf(3).E«f(4),F 
T2 .F^tg .Pyater 
END IF 

IF J»1 OR J»20 OR J»Nrun THEN 
Nq» 1 
ELSE 
No«0 
END IF 
END IF 

IF l9tu“0 then 

Tsteanl ■FNTvsv 57( Ernf ( 0 ) ) 

Tatearn 1"Tatearn 1-273.15 
Tataa(n2"FNTv9v56( Enf ( 1 ') 

Tatean2”T8tean2-Z73. 15 
Tateaw^Tateanl 
Troon“FNTvav53< Ef^f ( 2 ) ) 

Troon“Troom-273.15 
Tcon*FNTv9v58< Enf(7 ) ) 

Tcon-Tcon-273.15 
ELSE 

Tateam“FNTv9v(Enf ( 0)) 

Troorn«FNTvaV(Enf ( 3 ) ) 

Tcon**FNTvav< Enf ( 4 ) ) 

END IF 

P9at*FNPvat(Tateain) 

Rohg«13529-122*(TrooM-2S.85 )/50 
Rowater“FNRhow< Troow) 

IF latu*0 then 
P test1"Pvap1 
Pteat2»Pvap2 
ELSE 

Pteat2»(Phg*Rohg-Pyater*Rowater)*9.81/1000 
END IF 

Pka-Paat*1.E-3 
Pkp-Pteat2*1.E-3 
Pkt-Pka 

Ttran»FNTv9p<Pteat2 ) 

PRINT Psat ,Pte9t2 .Ttran .Tatean 
y9t“FNUvat<T9teen) 

Ppng*<Pte9t2-P9at)/Pteat2 
Ppst»1-Ppng 

nuv>18.016 

IF Iff 1 THEN Mwv-137 ! TO BE CORRECTED 

IF Iff2 THEN lluv-62 
yfnQ»(PteatZ-Paat )/Pteat2 
MfnQ-1/(1+<1/Vfng-1 )*Mwv/28.97 ) 

Mfng^Mfng*100 
Ufno«Ufng*100 
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2131 SEED 
2)34 IF Iov-2 THEN 
2137 PRINT 

2138' RECORD TIME OF TAKING DATA 

2)39 IF !«-) THEN 

2140 OUTPUT 705;“TD“ 

2141 ENTER 709;Tolc3$ 

2142 END IF 

2144 PRINT USING “10X,““Data set number 

2145 OUTPUT 709;'’AR AF40 AL40 UR5“ 

2)46 OUTPUT 709;“AS SA" 

2145 END IF 

2152 IF Iov-2 AND Ng-I THEN 
2155 IF l5tu-0 THEN PRINT USING ‘)0X.““ 

5 %" “ 

2155 IF Istu-l then PRINT USING "I0X.‘“ 

6 

2158 PRINT USING “10X.““ (kPa> (kPa> 

2161 PRINT USING “ 11 X. 5 ( M3D.D . 2 X)“;Pk5 .Pko .TsteanJtran ,Mf ng 

2164 PRINT 

2167 END IF 

2170 IF Mfng>,5 THEN 

2173 BEEP 

2176 IF Im-«; AND Ng-1 THEN 
2179 BEEP 

2182 PRINT 

2185 PRINT USING “10X "Energize the vacuum system 

2188 BEEP 

2191 input "OK TO ACCEPT THIS RUN (1»Y .0-N>7“ .Ok 

2194 IF Ok*0 THEN 

2197 BEEP 

2200 DISP ‘NOTE: THIS DATA SET WILL BE DISCARDED" " 

2203 WAIT 5 

2206 SOTO 1780 

2209 end if 

221: END IF 

2215 END IF 

2218 IF Im-1 THEN 

2221 IF rm<10 OR Fn>100 THEN 

2224 Ifm-0 

2227 BEEP 

2230 INPUT "INCORRECT FM ( 1 -ACCEPT ,0-DELETE )" .Ifm 

2233 IF Ifm-0 THEN 1804 

2236 END IF 

2239 END IF 

2242! ANALYSIS BEGINS 

2243 IF Istu-0 then 

2252 Ti1 -FNTvsv58< Emf<3 ) ) 


- ““ .D0,4X,14A";J .Told* 


Psat 

Ptran 

Tsat 

Ttran 

N 

Psat 

Pman 

Tsat 

Tman 

N 

(C 1 

<C > 

Molal 
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2272 To«»FNTvsv58<Enf(4) ) 

2292 Til-Til-273.15 

2312 To1-To1-273.lS 

2332 Tdell-Tol-Til 

2352 Tdel2-T2-Tl 

2353 Etpl-Enf(3>+Etp/20. 

2354 0tde-2.5931E-2-1.504B4E-6«Etp1+1.21701E-10*Etpl*2-5.1164E-l5*Etpl‘3+3.2 
20IE-19*Etpl“4 

2355 Trls-Dtdc«Etp/10. 

2358 To3-Til+Tris 

2359 IF Iov-2 THEN 

2361 PRINT USING ‘IX.** TINl TOUTl TIN2 TOUT: DELTl DELT2 
TPILE 

2362 PRINT USING ’IX.-* (SINGLE) (QUARTZ) *•* 

23G4 PRINT USING *2X.7(30.00.2X )*»Ti1 .Tol .T1 .T2 .Tdel1 ,Tdel2.Tris 

2365 END IF 

2367 Erl-ABS(Til-Tl ) 

2369 PRINTER IS 1 

2370 BEEP 

2375 Er2-ABS((T2-TI )-(Tris ) )/<T2-T1) 

2377 IF Er2>.05 AND In-I THEN 

2378 BEEP 

2379 PRINT *QCT AND T-PILE DIFFER BY MORE THAN 5X* 

2380 0k2-l 

2381 IF Ok2-0 AND Er2>.05 AND Iw-1 THEN 1780 

2382 ENO IF 

2383 PRINTER IS 701 

2384 ELSE 

2385 Tstcan-FNTvsv(Enf(0)) 

2387 Til-FNTvsv(Enf(2)) 

2388 6rad-FN6rad((T1+T2)*.5) 

2389 To3-Til+ABS(Etp )/(t0*6rad )•1.E+6 

2392 END IF 

2393 IF Istu-0 AND Itn-0 THEN 

2394 Tcin-Til 

2395 Tcout-Tol 

2396 END IF 

2397 IF Itn-1 THEN 

2398 Tcin-TI 

2399 Tcout-T2 

2400 END IF 

2401 IF Itn-2 THEN 

2402 Tcin-Til 

2403 Tcout-To3 

2404 END IF 

2405 Tavo-<Tcin+Tcout>«.5 

2406 Trise-Tcout-Tcin 
2407! PRINT Trisa 
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24U Ift-a 

2415 Cpw«FNCpw(Tavg ) 

241B Rhou*FNRhow<Tavg ) 

2417 Kw-FNKw<Tavg) 

2418 nuwa*FNnuw( Tavg) 

2413 Pp««FNPrwtTavg) 

2420 Ifflfto 

2422 IF l9tu-0 THEN 

2423 Mdt-( 6.7409»Fn+l3.027 )/1000. 

2424 nd«Hdf( 1.03B5-1.96644E-3*Tcin^5.252E-B*Tcin*2 >/1.0037 

2425 ELSE 

2426 Hdt-1.04805E-2+S.80932E-3*Fn 

2427 Md-Mdf( 1 .0365-1 .9B644E-3*Tcin-*.5.252E-6*Tcin*2 )/.995434 

2428 END IF 

2429 Uf-Md/Rhou 

2430 VwUf/(PI*0x*2/4) 

2431 Tcor“FNTfpic< Tnse ) 

2432 Tpisa"Tcop 

2433 Tcout«Tcin+Tpi9e 

2434 Lntd*Tpi9e/L06{ (T9tean-Tcin )/(T 9 tea«-Tcout)) 

2447 Q*f1d*Cpw*Tpi9e 

2448 Qp-Q/(PI*0o*L) 

2449 Uo"0p/Lntd 

24511 PRINT TPi9e,0,Do,L,0p,Lntd ,Uo ,yw 

2452 Rei-Rhowyw-Di/Muwa ' ASSUMED SAME FOR KORODENSE 

2453 Ift-0 

2455 Fe1*0. 

2456 Fe2-0. 

2457 Cf-1. 

2458 Ppwf»Ppu 

2459 Reif*Rei 
2461 IF Ihi-0 THEN 

2463 Onega*Rei“Rexp^Prw*.3333*Cf 

2465 END IF 

2466 IF Ihi-1 THEN 

2467 Sra-.88-(.24/<4.+Ppuf )) 

2468 Spb-.333333+.5*EXP(-.6*Ppuf) 

2470 Onaga*(5. + .0I5*Relf *Spa*Ppwf''Spb) 

2471 END IF 

2472 IF Ihi-2 THEN 

2473 Ep9i-<1.82*L8T(Rei)-l,64)“(-2) 

2474 Ppk1»1.+3.4*Ep9i 

2475 Ppk2-11.7+1.8 *Ppu*(-1/3) 

2476 Ppt*<Ep9i/8 )*Rei*Ppu 

2477 Pp2-<Ppkl+Ppk2*(Ep8i/8)".5*(Pr»“.BBBB-1>> 

2478 Onega^Pp1/Pp2 

2479 END IF 

2481 Hi*Kw/Oi«Ci*Omega 


124 




248: IF If«-0 THEN 60T0 249t 

2483 Pt-PI*<Di+Dn 

2484 Al»(D>-Oi)*PI*{D1+0 j )«.5 

2485 HI»<Hx*P»/(Kcu*A1 >)*.5 

2486 P2»PI«<0i-*-D2) 

2487 A2-<D2-0i )*PI*(Di+D2 )*.5 

2488 tt2»<Hi*P2/<Kcu*A2)>*.S 

2489 Fe1-FNTanh(M1*H ) 

2490 Fe2-FNTanh(n2*L2 )/<M2»L2 ) 

2491 Dt-Q/(PI*Di«(L+Ll•Fel+L2*Fe2)*Hi ) 

2492 IF Ihi-0 THEN 

2494 Cfc*<Muua/FNMuu(Tavg+Dt) )*.14 

2495 IF ABS(<Cfc-Cf )/Cfc )>.001 THEN 

2497 Cf»<Cf+Cfc )*.5 

2500 60T0 2461 

2501 END IF 

2503 END IF 

2504 IF Ihi-1 then 

2505 Prwfc*FNPru(Tavg+Dt) 

2506 Rexfc*Uw*Di*FNRhou<Tavg+Dt)/FNMuu<Tavg+Dt ) 

2507 IF ABS<<Prufc-Pruf )/Prufc )>.001 OR ABS(<Reifc-Rexf>/Rexfc>>.001 THEN 

2508 Pruf*(Prufe*Pruf>/2. 

2509 Reif-(Rexfc+Rexf )/2. 

2510 60T0 2461 

2511 END IF 
2513 END IF 
2516 Iffifto 

2521 Ho»1/< 1 /Uo-Do«L/<Di*(L+Ll*Fel+L2*Fe2)*Hx >“R«) 

2522 Tcf-Qp/Ho 

2525 Cp8C-FNCpu((Tcon+Tsteam )*.5 ) 

2526 Hfg-FNHfgITstean) 

2527 Tuo^Tstean-Qp/Ho 

2528 Tfxln*Tstean/3+Tuo*2/3 
2530 Kf-FNKw(Tfiln) 

2533 Rhof-FNRhow(Tfxlm) 

2536 l1uf-FNMuw<7filfi) 

2537 Hfgp-FNHfg<Tstean)+.68*FNCpu(Tftln>*(Tsteai«i-Tuo) 

2539' Hpq-.651*Kf*<Rhof“2*9.81*Hfgp/(Huf*Do+0p) >“.3333 

2541 HnuS8-.728*(Kf'3*9.81*Hfgp*Rhof"2/(l1uf*Do*(T5tean-Tuo)))''.25 

2542 Alpl«.728«Ho/Hnus8 

2548 Tfn(J-1)-Tfiln 
2551 0pa(J-t)-0p 

2554 Y*Hpq*Qp*.3333 

2557 X-Op 
2560 Sx-Sx+X 
2563 Sy-Sy+Y 
2566 Sxs-Sxs+X*2 
2569 Sxy-Sxy+X*Y 
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2572 01-500 

2575 01o» 8-Q1/( 100-25 )«(T5tea(i-Troo«> • TO BE MODIFIED 

2584 Mdv-0 

2587 Bp-<Bvol*l00)*2/5.76 

2590 H 5 C-Cpsc*(T»tean-Tcon) 

2593 Mdvc-((Bp-OIoas l-Mdv-Hacl/Hfg 

2596 IF A6S((Mdv-Mdvc )/ndvc )>.0t THEN 

2599 Hdv-(Hdv+Hdvc )«.5 

2602 60T0 2593 

2605 END IF 

2608 Hdv-(Mdv+Hdvc )•.5 

2611 Og-FNUvst(Tstean) 

2614 Ov-Mdv*Vg/Ax 

2620 F-(9.81*Do*Muf*Hfg)/(0v*2*Kf*(Tataan-Tyo) 1 

2623 Nu-Ho*Do/Kf 

2626 Rat-Vv*Rhof•Do/Muf 

2629 Nr-Nu/Rat*.S 

2630 Hfuj-.96«<9.81*Hfgp/Tcf )*.2*Kf*.8*Uv*.l*Rhof*.5/(Do*Muf)*.3 
2635 IF Iov-2 THEN 

2645 PRINT 

2647 PRINT USING *SX.** Uw Rei Hi Uo Hfuj(DT) 

Hnu(DT )’“• 

2650 PRINT USING *SX .Z.DO .1X .3(M2.3DE.1X ) ,3X ,2(MZ.30E.3X)’«Uw,Rai.Hi .Uo ,Hfuj 
.Hnuss 

2651 PRINT 

2653 PRINT USING ‘SX,*' Uv Ho Q Tcf Tfiln T 

atn" ** ** 

2655 PRINT USING "SX ,Z.DD .IX .5(MZ.30E,1X )“»Vv ,Ho,0p.Tcf .Tfiln.Tstean 

2656 PRINT 

2658 END IF 

2659 IF Iov-1 THEN 

2660 IF Ihi-1 THEN 

2661 PRINT USING * 11X.00.2X.2.00.IX.3<MD.3DE.1X),2(3D.D0.IX).D.DDD*»J .Vu .Uo . 
Ho .Op .Tcf .Tstaan .Sra 

2662 PRINT USING *5X.** Tfiln ***iTfiln 

2664 ELSE 

2668 PRINT USING ’1IX,00.4X.Z.00 .2X.2(HD.3DE.2X),Z.3DE.3X.30.00.2X.30.00";J .Uw 
,Uo ,Ho ,0p ,Tcf.Tstaan 


2671 

END IF 



2674 

END IF 



2675 

IF In-2 THEN 



2684 

IF (IwiI-0 AND Ijob-1) OR 

lwil>0 THEN OUTPUT 

OFilepiOp.Ho 

2694 

END IF 



2707 

BEEP 



2708 

IF In-1 THEN 



2709 

IF (Iwil-0 AND Ijob-1> OR 

IyiI-1 THEN OUTPUT 

tFilapiQp,Ho 

2711 

INPUT "CHANGE TCOOL RISE? 

1-Y. 2-N",Itr 


2712 

IF ItP-1 THEN 60T0 2384 
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27)3 BEEP 

2715 INPUT ‘OK TO STORE THIS DATA SET ( l-Y .0-N )*>* .Ok s 

2716 IF Oks-1 THEN 

2725 OUTPUT •File;Bvol .Banp .Etp .Fn .T1 .T2 .Pvapi .Pvap2 .Enf(*) 

2735 Alp2-Alp1+Alp2 

2749 ELSE 

2752 J-J-l 

2755 END IF 

2758 BEEP 

2761 INPUT “WILL THERE BE ANOTHER RUN (1-Y .0-N>?” .6o_on 
2764 Nrun«J 

2767 IF 6o_on<>0 THEN Repeat 

2770 ELSE 

2773 IF J<Nrun THEN Repeat 

2776 END IF 

2779 IF Ijob-1 THEN 2809 

2782 IF Iuil-0 THEN 

2785 ASSI6N 0File TO • 

2788 Ijob-1 

2791 Iwd-1 

2794! CALL Unson<Ci ) 

2797 In-2 

2800 ASSIGN 0Fxle TO D_fileS 

2803 60T0 1136 

2806 END IF 

2809 IF If0-0 THEN 

2812 PRINT 

2815 Sl-( NPun*Sxy“Sy*Sx )/< Nrun*Sxs~Sx'‘2 ) 

2818 Ac-(Sy-Sl*Sx )/Nrun 

2822 PRINT USING "10X .'"Leaat-Squapes Line for Ho vs q curves"*' 
2824 PRINT USING "10X,** Slope - " ,riD.4DE" iSl 

2827 PRINT USING "10X.** Intercept - *’.nD.4DE">Ac 

2830 END IF 
2833 BEEP 

28431 INPUT "ENTER SAME TEMPORARY PLOT FILE NAME* .FplotS 
2853 ASSIGN 0Filep TO P_file* 

2863 FOR 1-1 TO Nrun 
2873 ENTER BFileptOp.Ho 

2883 Xc-L06(Qp/Ho) 

2884 Yc-L06(0p) 

2885 Zx-Zx+Xc 

2886 Zx2-Zx2+Xc*2 

2887 Zxy-Zxy+Xc*Yc 

2888 Zy-Zy+Yc 

2889 NEXT I 

2890 Bb-.75 

2891 Aa-EXP<(Zy-Bb*Zx)/Nrun) 

2892 PRINT 
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28S3 PRINT USING * 10X ,*"Least-squares line for q • a*delta-T*b""‘ 

2894 PRINT USING •12X.*"a - "* .HZ.40E';Aa 

2895 PRINT USING ’12X."*b - *" .MZ.4DE"sBb 
299G IF Ift-0 THEN 

2897 IF Ipc-0 THEN 

2898 0PS-2.5E+5 

2899 IF Iic-0 then Hop-9326 

2902 IF Iic-1 then Hop-t0IGS*(.01905/00>*.33333 

2905 END IF 

2908 IF Ipc-t THEN 

2911 QPS-7.5E+S 

2914 IF Iic-0 then Hop-717G 

2917 IF Iic-1 THEN Hop-7SG9*<.01905/Do )*.33333 

2920 END IF 

2923 Hos-Aa '< 1 /Bb )*Qps''( < Bb-1 )/Bb ) 

292B IF Ipc-0 THEN Aas»2.32E+4 

2929 IF Ipc-1 THEN Aas-2.S9E+4 

2930 Alpsn-.876 ISUENSEN DATA 

2931 IF Iuil-0 THEN GOTO 2959 

2933 Enrat-Alp2/Alpsn 

2934 Enr-Hos/Hop 

2935! Enr-Aa/Aas 

2938 PRINT 

2941! PRINT USING "10X , *"Ualues computed at q - "".Z.OD,"" (MU/n*2 ):"* *«Qps/1 
.E+6 

2944! PRINT USING "12X"Heat-transfer coefficient - ’“ .DDD.DDO" (kU/m*2.K) 
"•"»Hos/l000 

2947 PRINT USING "12X “Enhancement ratio (Del-T) - "" ,20.30"lEnrat 

2950! PRINT USING *10X ,""Enhancement ratio at constant Delta-T • *",DD.DD"5E 

nr 

2953! PRINT USING "10X"Enhancement ratio at constant q - "■,DD.DD"jE 

nr*1.3333 

295G ELSE 

2959 PRINT 

2962 IF Ift-1 THEN 

2965 Aas-2687.2 ! ZEBROUSKI (U - 0.4 m/s) 

2968 Aas-2557.0*(.01905/00>*.33333 • VAN PETTEN (V - 0.25 m/s) 

2971 END IF 

2974 IF Ift-2 THEN Aas-9269.7*(.01905/Do>*.33333 
2977 Edt-Aa/Aas 

2980 Eq-Edt*(4/3> 

2983! PRINT USING "10X “Enhancement <q> - "",DD.3D"»Eq 

2986! PRINT USING "10X "Enhancement (Del-T> - "* ,00.30“jEdt 

2989 ENO IF 

2992! IF Im-I THEN 

2995 BEEP 

2998 PRINT 

3001 PRINT USING "10X,“*NOTE: *",Z2,*’ data points were stored in file "",10 


A“iJ,D_file* 

3004! END IF 
3007 BEEP 
3013 PRINT 

3016 PRINT USING ■I0X,"NOTE: “.ZZ.** X-Y pairs yere stored m data file "‘.10 
A’jJ .Plots 
3031 BEEP 

3073 ASSIGN 0File TO * 

3079 ASSIGN BFilep TO * 

3080 PURGE 'DUMMY* 

3094 IF 180-2 THEN CALL Ray 
3100 IF Iso-3 THEN CALL Uiison(Ci) 

3103 IF Iso-4 THEN CALL Modify 
3106 IF Iso-5 THEN CALL Purg 

3112 IF Iso-E THEN CALL Renan 

3113 IF Iso-7 THEN CALL Mergefile 

3114 IF Iso-8 THEN CALL Xyoutput 
3116 END 

3118 DEF FNPv5t(Tc) 

3121 COM /Fid/ Ift .Istu 
3124 DIM K{3> 

3127 IF Ift-0 THEN 

3130 DATA -7.691234S64 .-26.08023696.-168.1706546.64.23^95504 .-118.9646225 

3133 DATA 4.16711732 ,20.9750676.1.E9.6 

3136 READ K<*) 

3139 T-(Tc+273.151/647.3 

3142 Sun-0 

3145 FOR N-0 TO 4 

3148 Sun-Sun+K<N)*< 1-T)*(N-H ) 

3151 NEXT N 

3154 Br-Sun/<T*( 1+K< 5 )♦< 1-T )+K< 6 )♦< 1-T 1*2 ) >-( 1-T >/( K( 7 )*M-T )*2^K(8 >) 

3157 Pr-EXP<Br) 

3160 P-22l20000«Pr 

3163 END IF 

3166 IF Ift-1 THEN 

3169 Tf-Tc»l.8+32+459.6 

3172 P-10'(33.0655-4330.98/Tf-9.2635*L6T(Tf )+2.e539E-3*Tf) 

3175 P-P*101325/14.696 

3178 END IF 

3181 IF Ift-2 THEN 

3184 A-9.394685-3066.1/(Tc+273.15) 

3187 P-133.32*I0'A 

3190 END IF 

3193 RETURN P 

3196 FNEND 

3199 DEF FNHfg(T) 

3202 COM /Fid/ Ift.Istu 
3205 IF Ift-0 THEN 
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3208 Hfg-2477200-24S0*(T-10) 

321 I END IF 
3214 IF Ift-1 THEN 

3217 Tf-T*1,8+32 

3220 Hf0-7.0S578S7E+1>Tf *< 4.338052E-2+1.2619048E-4*Tf ) 

3223 Hfo-Hfo*2326 

3226 END IF 
3229 IF Ift-2 THEN 

3232 Tk-T+273.15 

3235 Hfg-l.35264E+B-Tk*<6.38263E+2+Tk*.747462) 

3238 END IF 
3241 RETURN Hfg 
3244 FNENO 
3247 DEF FNMuu(T) 

3250 COM /Fid/ Ift .latu 
3253 IF Ift-0 THEN 
3256 A-247.8/<T+l33.IS) 

3259 Mu-2.4E-S*10‘A 

3262 END IF 
3265 IF Ift-1 THEN 

3268 Mu-8.9629819E-4-T*(1.1094609E-5-T*S.566829E-8) 

3271 END IF 
3274 IF Ift-2 THEN 
3277 Tk-1/<T+273.15) 

3280 Mu-EXP(-11 .0179+Tk*( 1 .744E+3-Tk*(2.80335E+5“Tk*1 .1266lEt-8 )) > 

3283 END IF 

3286 RETURN Mu 

3289 FNENO 

3292 DEF FNUvstiTt) 

3295 COM /Fid/ Ift .Istu 
3298 IF Ift-0 THEN 
3301 P-FNPvst<Tt) 

3304 T-Tt+273.15 

3307 X-1500/T 

3310 F1-1/(1+T*1,E-4) 

3313 F2-(1-EXP<-X ) )“2.5*EXP<X l/X'.5 

3316 B-.0015*F1 -.000942 *F2-.0004882 *X 

3319 K-2*P/<461.52*T) 

3322 U-(l+(1+2*B*K )“.5)/K 

3325 END IF 
3328 IF Ift-1 THEN 
3331 Tf-Tt*I.8+32 

3334 U-13.9553S7-Tf»(.16127262-Tf*5.17261906-4) 

3337 U-U/16.018 

3340 END IF 
3343 IF Ift-2 THEN 
3346 Tk-Tt+273.15 

3349 P-FNPvst<Tt) 








3352 y-133.95*Tk/P 

3355 END IF 

3358 RETURN U 

3361 FNEND 

3364 DEF FNCpu(T) 

3367 COM /Fid/ Ift .Istu 
3370 IF Ift-0 THEN 

3373 Cpw-4.21120858-T*(2.26826E-3-T*( 4.42361E-S+2.71428E“7«T )) 

3376 END IF 
3379 IF Ift-1 THEN 

3382 Cpw-9.2507273E-1♦T* < 9.3400433E-4+1.7207792E-B*T ) 

3385 END IF 

3388 IF Ift-2 THEN 

3391 Tk-T+273.15 

3394 Cpw-4.1868*<1.G884E-2+Tk*{3.35083E-3-Tk*<7.224E-6-Tk*7.61748E-9 ))) 

3397 END IF 

3400 RETURN Cpu*1000 

3403 FNEND 

3406 DEF FNRhow(T) 

3409 COM /Fid/ Ift .Istu 
3412 IF Ift-0 THEN 

3415 Ro-999.52346+T*<.0l269*T*<5.4825l3E-3-T*l.234147E-5>) 

3418 END IF 
3421 IF Ift-1 THEN 

3424 Ro-1.6207479E+3-T*(2.2186346+T«2.3578291E-3 ) 

3427 END IF 

3430 IF Ift-2 THEN 

3433 Tk-T+273.15-338.15 

3436 Vf-9.24848E-4+Tk*(6.2796E-7+Tk*( 9.2444E-10+Tk*3.057E-12)) 

3439 Ro-l/Uf 

3442 END IF 
3445 RETURN Ro 
3448 FNEND 
3451 DEF FNPru<T) 

3454 Prw-FNCpw< T)*FNMuw( T)/FNKu< T) 

3457 RETURN Prw 
3460 FNEND 
3463 DEF FNKw<T) 

3466 COM /Fid/ Ift .Istu 

3469 IF Ift-0 THEN 

3472 X-(T+273.15)/273.1S 

3475 Kw—.92247+X*(2.8395-X*(1.8007-X*( .52577-.07344*X))> 

3478 END IF 
3481 IF Ift-1 THEN 

3484 Kw-8.2095238E-2-T*(2.2214286E-4+T*2.3809524E-8) 

3487 END IF 
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3490 IF Iff2 THEN 
3493 Tk-T>273.15 

3496 Kw-4.1868E-4*(519.442f.320920*Tk) 

3499 END IF 
3502 RETURN Kw 
3505 PNENO 
3508 DEF FNTanh<X) 

35n P-EXP(X) 

3514 Q-EXP(-X) 

3517 Tanh-(P-Q)/<P+Q) 

3520 RETURN Tanh 

3523 FNEND 

3526 DEF FNTv9v(V) 

3529 COM /Cc/ C<7) 

3532 T-C(0) 

3535 FOR f1 TO 7 
3538 T-T+C<I)*U*I 

3541 NEXT I 

3544! T-T+4.73386E-3+T*(7.692834E-3-T*8.077927E-5) 

3547 RETURN T 
3550 FNENO 
3553 DEF FNHf(T) 

3556 COM /Fid/ Ift ,Iatu 
3559 IF lft»0 THEN 

3562 Hf-T*<4.203849-T«(5.88l32E-4-T*4.55160317E-6)) 

3565 END IF 

3568 IF Ift-1 THEN 

3571 Tf-T*l.8+32 

3574 Hf-8.2078571+Tf*(.194678S7+Tf*l.3214286E-4) 

3577 Hf-Hf*2.326 

3580 END IF 

3583 IF Ift-2 THEN 

3586 Hf-250 • TO BE VERIFIED 

3589 END IF 

3592 RETURN Hf*1000 

3595 FNENO 

3598 DEF FN6rad(T) 

3601 6rad-37.9853+.t04388*T 

3604 RETURN 6rad 
3607 FNEND 
3610 DEF FNTvsp<P) 

3613 Tu-190 

3616 Tl-10 

3619 Ta-<Tu+Tl )*.5 
3622 Pc-FNPv9t(Ta) 

3625 IF ABS<(P-Pc)/P)>.0001 THEN 
3628 IF Pc<P THEN Tl-Ta 

3631 IF Pc>P THEN Tu-Ta 
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3634 GOTO 3619 
3637 END IF 
3640 RETURN Ta 
3643 FNENO 
6646 DEF FNSiona<T) 

6649 X-647.3-T-273.15 

6652 S-.1160936807/<1 + .83*X )+l.12U04688E-3-5.75280518E-6*X+l.28627465E-8*X*2- 

. 14971929E-n»X"3 

6655 RETURN S*.001*X‘'2 

6658 FNENO 

6661 SUB Raw 

6662 COM /Fid/ Ift .Istu 
6664 DIM X(28) 

6670 INPUT ‘ENTER TUBE NUMBER* .Itn 
6676 INPUT ‘ENTER FILE NAME‘.FileS 

6679 ASSIGN 0FiIe TO FileS 

6680 INPUT ‘STUDENT (0-Suensen)‘.Istu 

6681 INPUT ‘SMOOTH OR FINNED (0-SMOOTH. 1-FINNED)“ .Ifg 
6683 INPUT ‘ENTER TUBE SIZE (0-S . 1-M.2-L .3-OMC )‘.Itds 
6685 INPUT ‘ENTER PRESSURE CONDITION (0-U.1-A )‘ .Ipc 
6688 IF Ipc-0 AND Ift-0 THEN Us-2 

6691 IF Ipc-0 AND Ift-2 THEN Us-10 

6692 IF Ipc-1 AND Ift-0 THEN Us-1 

6693 IF Ipc-1 AND Ift-1 THEN Vs-.25 

6694 IF Istu-1 THEN Vs-2 
6696 Nrun«18 

6700 INPUT ‘ENTER NUMBER OF RUNS" .Nrun 
6703 PRINTER IS 701 
6706 PRINT 

6709 PRINT 

6710 IF Istu-0 THEN PRINT USING "10X.“Oata of Swensen“‘ 

6715 IF Ift-0 THEN PRINT USING ‘10X.“Vapor is steai«i“‘ 

6716 IF Ift-1 THEN PRINT USING ‘10X.“Vapor is R-113‘“ 

6717 IF Ift-2 THEN PRINT USING ‘10X,“Vapor is ethylene glycol”" 

6719 IF Itds-0 THEN PRINT USING ‘10X.“Tube diameter: Snail” ‘ 

6720 IF Itds-1 THEN PRINT USING ‘10X.“Tube diameter: Medium*"‘ 

6721 IF Itds-2 THEN PRINT USING ‘t0X.“Tube diameter; Large*” 

6722 IF Itds-3 THEN PRINT USING ‘10X.“Tube diameter: 0MC‘“ 

6724 PRINT 

6725 PRINT USING *10X.“Tube Number; “.ZZ‘jItn 

6726 PRINT USING ‘10X,“File Name: “,14A‘jFile» 

6727 IF Ifg-0 THEN PRINT USING ‘10X.“Tube Type: Smooth*” 

B728 IF Ifg-1 THEN PRINT USING ‘10X.“Tube Type: Finned*** 

6730 IF Ipc-0 THEN 

B731 PRINT USING ‘10X .“Pressure Condition; Vacuum*** 

6732 ELSE 

6733 PRINT USING *10X.*'Pressure Condition: Atmospheric*** 

6734 END IF 
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6735! PRINT USING 'lex.^Uapor Velocity: "‘.DO.DO,” <n/5)""»U9 

6736 ENTER 9FilejIfg ,Inn 

6739 IF Itd8-1 OR Itd#-2 THEN Oi».0127 

6742 IF Itds-0 OR Itds-S THEN Oi-.009525 

6747 ENTER 0File;Iwt .Fp.Fu.Fh 

6748! IF l9tu-0 AND Ifg-l THEN 

6749 IF Inan*7 THEN 

6751 Fp-Fp-1 

6752 PRINT USING "lOX.^’Fin spacing, width and height (nn): "‘.DD.DD .2X .Z.DD 
.2X.Z.DD*iFp.Fu.Fh 

6753 END IF 

6756 PRINT 

6757 PRINT USING *l0X.""Data Uu Tin Tout Ts""" 

6758 PRINT USING "10X.“* t (tn/s) (C) (C) (C)""" 

6760 PRINT 

6763 FOR I-l TO Nrun 
6766 ENTER 9File:X(*> 

6769 Ts-FNTvav57(<X<8)+X(9))/2. ) 

6770 Ta-Ts-273.15 

6772 Fn»X(3) 

6775 Tl-X(4) 

6778 T2-X<5) 

6781 Tavg-(T1+T2 )*.5 

6784 Ift-0 

6785 Rhow*FNRhow<Tavg) 

6787 Md-<6.740g*Fn+l3.027)/1000. 

6790 Md-Md*( 1.0365-1.96644E-3*Tl+5.252E-6*Tr2 >/1 .0037 

6793 Mf-Md/Rhou 

6796 Uwrif/<PI*Di''2/4) 

6799 IF Inn-0 AK' Uu>.5 THEN T2-T2-(-2.73E-4+1.75E-4*Uw+9.35E-4*Uw"2-l.96E-5 

♦Uu"3) 

6809 IF Inn-1 THEN T2-T2-(-6.44E-5+1.71E-3*Uu+4.45E-4*Uu"2+4.07E-5*Uw"3) 

6810 IF Inn-2 THEN T2-T2-(-3.99E-4+2.75E-3*Uu+l.45E-3«Uw"2+8.16E-5*Vu*3 ) 

6811 IF Inn-3 THEN T2-T2-(8.57E-5+1.23E-3*Uw+l.08E-3*Uw"2+8.16E-5*Uw"3) 

6814 PRINT USING * 10X .00.5X,D.DD.3X,2<DD.DD ,3X ) ,DDD.DD"»I ,Uu.T1.T2 .Ta 

6817 NEXT I 

6820 ASSIGN 9File TO • 

6823 SUBENO 

6826 SUB Uilaon(Ci ) 

6829 con /Uil/ Nrun.Itn.Iwth,Inc.Ife.1job,Iwd.Ifg ,Ipco .Ifto.Iwll,Ihi.loc ,Inan,K 
cu ,Rexp ,Ri*i ,Ax 

6832 COM /Fid/ Ift.Iatu 

6833 COM /Geon/ Dl.D2.Dl .Do,L.LI ,L2 

6834 COM /Fric/ latuo .Inn ,Ityp ,Uu .Inario ,Inco .Itda 

6836 DIM Enf < 20) .Bvo< 42 ) ,Bain( 42 ) .Eata( 42 ) ,Ear( 42 .7 ) .Fr*a( 42 ) ,T1 a( 42 > ,T2a< 42 ) 

6845 IF Ioc-0 THEN 

6847 PRINT USING *16X ‘Nuaaelt theory is used for Ho*"* 

6848 ELSE 
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B849 PRINT USING ’)6X,*"Fujii correlation used for Ho*"’ 
G850 END IF 
6853 BEEP 

6856 INPUT "RE-ENTER DATA FILE BEING PROCESSED" .D files 
6859 BEEP 

6862 INPUT "GIUE A NAME FOR XY PLOT-DATA FILE" .Plots 
6865 CREATE BOAT Plots.30 
6868 ASSIGN 01o_path TO Plots 
6871 Jj-0 

6874 ASSIGN BFile TO D^fileS 

6877 ENTER fFilejIfg .Inn 

6878 IF Istu-0 THEN 

6883 ENTER 0File;Odd .Odd .Odd .Odd 

6884 ELSE 

6885 IF Ifg-0 THEN ENTER CFilesIut 

6886 IF Ifa-1 THEN ENTER SFilejFp .Fu .Fh 

6887 END IF 

6888 IF Istu-1 AND Inn-1 THEN Inn-2 
6890 IF Jj-0 THEN 


6895 

IF 

Ihi-0 

AND Inn-0 THEN 

Ci-.027 

6896 

IF 

Ihi-0 

AND Inn-2 THEN 

Cl-.05 

6897 

IF 

Ihi-0 

AND Inn-3 THEN 

Ci-.07 

6899 

IF 

Ihi-1 

OR Ihi-2 THEN 


6900 

IF 

Inn-0 

THEN Ci-1.0 


6902 

IF 

Inn-2 

THEN Ci-2.0 


6903 

IF 

Inn-3 

THEN Ci-2.S 


6904 

ENQ 

1 IF 



6906 

IF 

IfQ-0 

THEN Alp-1.2 


6907 

IF 

I fg-t 

THEN Alo-2.6 


6908 

IF 

Ift-2 

AND Ifg-1 THEN 

Alp-5.0 

6909 

END IF 




6910 

J-0 




6911 

Sx-O 




6913 

Sy-0 




6916 

Sxs-0 




6919 

Sxy-0 





6922' READ DATA FROM A USER-SPECIFIED FILE IF INPUT MODE (In) - 2 

6925 IF Jj-0 THEN 

6926 IF Istu-0 THEN 

6931 ENTER CFileiByol .Banp ,Etp .Fn .Tl ,T2 .Pvapi ,Pvap2 ,Enf(* ) 

6932 ELSE 

6934 ENTER •Filo;Bvol.Banp .Utran.Etp .Enf(0) ,Enf(1 ) ,Enf(2 ) .Enf< 3 ) .Enf(4).F 

n.Tl .T2 .Phg.Pwater 
6936 END IF 

6938 Bvo<J)-Bvol 

6939 Ban(J >-Banp 

6940 Eata(J)-Etp 

6943 Ear( J,0>-Enf(0> 
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6946 Ear<J .1 )-£nf(t ) 

6949 E«r(J.2)-Emf(Z) 

6952 Ear( J.3)-Epif(3) 

6955 Ear{ J .4)-Enf(4) 

6956 IF Iatu-1 THEN 60T0 6961 

6958 Ear<J ,S)-Enf(5) 

6959 Ear<J ,6 )-Enf<6> 

6960 Ear( J ,7)-Enf(7) 

6961 Fna(J)»Fn 

6962 T1a(J)-Tt 

6964 T2a<J)-T2 

6967 ELSE 

6970 Bvol*6vo(J) 

6973 Bann«6an(J ) 

6976 Etp-Eata(J) 

6979 EnfC0)-Ear(J ,0) 

6982 Enfd )-Ear( J .1 ) 

6985 E«f(2>-Ear( J .2) 

6988 Enf(3)-Ear( J.3) 

6991 Enf(4)-Ear<J .4) 

6992 IF l9tu-1 THEN 60T0 6997 

6994 Enf<5)-Ear( J .5) 

6995 Enf<6)«Ear<J ,6 ) 

6996 Enf(7)-Ear< J .7) 

6997 Fn*Ftna( J ) 

6998 T1"T1a(J> 

7000 T2-T2a<J) 

7003 END IF 

7004 IF l8tu-0 THEN 

7006 Tsteaml«FNTv9v57(Emf(0)) 

7007 Tste8Ml-T8tean1-273.15 

7008 Tstea«2»FNTvsv57(Enf(1 )) 

7009 Tstean2-Tateai«i2-273. IS 

7010 Tstean>Tstean1 

7011 Troon*FNTv9vS8(Enf<2 )) 

7012 Troon"Tpoon-273.15 

7013 Tc{>n»FNTvsvS8< Enf < 7 )) 

7014 Tcon«Tcon-273.15 

7016 Ti1-FNTvsv58(Enf(3)) 

7017 Tol-FNTvsv58(Enf(4)) 

7018 Til-Til-273.15 

7019 Tol-Tol-273.15 

7020 Tdell-Tol-Til 

7021 Tdal2-T2-T1 

7023 Etp1-Enf<3)+Etp/20. 

7024 Otda-2.5931E-2-1.50464E-6*Etp1 +1.21701E-10*Etp1*2-5.1164E-1S*Etp1 * 3+3.2 
201E-19*Etp1*4 

7025 Tpi9-Dtda*Etp/10. 
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7026 To3-Ti1+Tris 

7028 ELSE 

7023 Tfttcan>FNTvsv(Enf(0)) 

7030 Txl-FNTvsv(Einf<2)) 

7031 6rad»FN6rad<(T1+T2 )*.5) 

7032 Tol-Ti1+ABS<Etp )/(10*6rad )«1 .E-^B 

7033 END IF 

7034! CALCULATE THE L06-HEAN-TEMPERATURE DIFFERENCE 

7035 IF Iatu-0 AND Itn-0 THEN 

7036 Tcin»Txl 

7037 Tcout"To1 

7038 END IF 

7039 IF Itn-1 THEN 

7040 Tcin«T1 

7041 Tcout»T2 

7042 END IF 

7043 IF Itn-2 THEN 

7044 Tcin"Ti1 

7045 Tcout“To3 

7046 END IF 

7047 TavQ^ITcin+Tcout )*.5 

7048 Tri8e“Tcout-Tcin 
7049' PRINT Trisa 

7055 Ift-0 

7056 Cpw*FNCpw( Tavg) 

7057 Rhou*FNRhow< T avg) 

7058 Kw-FNKw(Tavg) 

7059 f1uwa*FNnuw< Tavg) 

7060 Ppw»FNPru(Tavg) 

7061 Ift-Ifto 

7062 IF Istu-0 THEN 

7063 Mdt-(6.7409*Fn+13.027 )/1000. 

7064 Md-Mdt*<1.0365-Tcin*<1,96B44E-3-Tcin*5.252E“B >)/l.0037 

7065 ELSE 

7066 Mdt-1.04805E-2+6.80932E-3*F« 

7067 Md-I1dt*<I.0365-Tcin*(I.96644E-3-Tcin*5.252E-B ))/.995434 

7068 END IF 

7069 Uf-Md/Rhow 

7070 Uu-Uf/<PI*0i'2/4) 

7071 Tcor»FNTfric< Tnse) 

7072 Trisa^Tcor 

7073 Tcout“Tcin+Tri8e 

7074 Lntd«Trisa/L06((Tstaan-Tcin )/(Tstea«~Tcout)) 

7077 Cpsc*FNCpu(<Tcon+Tstaaw )«.5 > 

7078 Hfg»FNHfg(Tstean) 

7079 01-500 

7080 01oss-01/< 100-25 )*(Tstaai>i-Tpoofi) ! TO BE MODIFIED 
7082 Hdv-0 
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7084 Bp«(Bvol*100>*2/5.76 

7085 H9c*Cp8c*(Tst«an*Tcon) 

7086 f1dvc"< (Bp-'Closs )-Mdv*Hsc )/HfQ 

7088 IF ABS((ndv>ndvc )/ndvc».0) THEN 
7090 Hdv-< ndvt’Hdvc )•. 5 

7092 60T0 7086 

7094 END IF 
7096 ndv<Hdv+Mdvc >*.5 
7098 Vo«FNVv#t(T8tean) 

7100 Vv»Mdv«VQ/Ax 
7108 Q"f1d*Cpw*Tpi9e 
7111 Qp-Q/(PI*Do*L) 

7114 Uo-Qp/Lntd 

7115! PRINT Trise ,Uu ,0,0o .L ,0p ,Lntd,Uo 
7117 Rei*Rhow*1>w*0i/Muua 
7120 Fe1-0. 

7123 Fe2-0. 

7126 Cf-1. 

7127 Pruf-Pru 

7128 Rexf-Rei 

7131 Two*Tstaan-5 

7132 Tfxln*T9taan/3+Tuo*2/3 
7135 Kf-FNKu(Tfiln) 

7138 Rhof-FNRhow(Tfiln) 

7141 Muf-FNMuw<Tfiln> 

7144 HfQp»FNHfo(Tatean)+.68*FNCp«(Tfiln)«(T9tean-TMO) 

7145 IF Ioc-0 THEN 

7147! Neu-Kf*(Rhof*2*9.81*Hfop/<nuf*Oo*Qp))*.3333 

7148 Neu-<Kf*3*9.81*HfQp«Rhof*2/<P1uf«Do*(T9teaw-Two)) >*.25 

7150 ELSE 

7153! New-Kf*(<9.8I*Hfap/Qp)*.25)*({nuf*Do)“(-.375))*(Rhof".625>*(Vv*.125) 

7154 Neu-( 9.81 ♦Hf gp/< Tatearn-Tuo ))*. 2*Kf *. 8*Vv“. 1 •Rhof * .5/ (Do«Muf ) *. 3 

7156 END IF 

7159 Ho*Rlp*New 

7162 Tuoc«T9tean-Qp/Ho 

7165 IF RBS(<Tuoc-Two)/Twoc>>.001 THEN 

7168 Two"Tuoc 

7171 GOTO 7132 

7174 END IF 

7184 IF Ihi-0 THEN 

7186 Omeoa»Rei''Rexp*Pry* .3333*Cf 

7187 END IF 

7188 IF Ihi-1 THEN 

7189 Spa-.88-(.24/(4.+Ppwf)) 

7190 Srb-.333333+.S*EXP(-.6*Prwf) 

7191 O«aoa»(5. + .015*Reif"Spa*Pryf*Srb ) 

7192 END IF 

7193 IF Ihl-2 THEN 
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719A Epsi»(1.82*L6T(Rei )-l.64)'<-2) 

7195 Ppk1*t .•♦■3.4«Ep5i 

7196 Ppk2-11.7+1.8«Prw*(-l/3> 

7197 Ppl*(Ep9l/8 )*Rei«Pru 

7198 Pp2-{Ppkl+Ppk2*(Ep9i/8)'‘.5*(Pru*.BBBB-l )) 

7199 Onega*Ppl/Pp2 

7200 END IF 

7202 Hi*Ku/Oi*Ci*Onega 

7203 IF If«-0 THEN 7216 

7204 Pl-PI*(Di+Dl ) 

7205 P2-PI*(Di+D2) 

7206 Al-(DI-Dx )*PI*(Di+Dl )*.S 

7207 R2-(D2-0i)*PI*<0i+02)*.5 

7208 ni-(Hi*Pl/(Kcu*Rl ))“.S 

7209 H2-(Hi*P2/(Kcu*A2))*.5 

7212 FeI-FNTanh(Ml*LI )/(m«L1 ) 

7213 Fe2«FNTanh<fl2*L2)/<n2*L2) 

7216 Dt-Q/(PI*0i*<L+Ll*Fel+L2*Fe2)*Hi) 

7217 IF Ihi-0 THEN 

7219 Muwi*FNMuy(Tavg+Ot) 

7222 Cfc-(Muua/f1uui )*. 14 

7225 IF RBS(<Cfc-Cf )/Cfc)'>.001 THEN 

7228 Cf-(Cf+Cfc )*.5 

7231 SOTO 7184 

7232 END IF 

7234 END IF 

7235 IF Ihi-1 THEN 

7236 Prufc*FNPrw(Tavg+Dt) 

7237 Rex fc*Vw*Dx*FNRhou< Tavg+Dt )/FNMuw(Tavg+Dt) 

7239 IF ABS<(Prufc-Pruf)/Prwfc)>.001 OR ABS((Reifc-Rexfl/Rexfc )>.00I THEN 

7240 Pruf*(Prufc+Prwf )/2. 

7241 Reif-(Rexfc+Reif )/2. 

7242 SOTO 7184 

7243 END IF 

7245 END IF 

7246 Ift-Ifto 

7247 X*Do*New*L/<Onega*Ky*< L+L1•Fel+L2*Fe2 ) > 

7248 Y-Ney*(1/Uo-Rn) 

7249! CDMPUTE CDEFFICIENTS FOR THE LEAST-SOUARES-FIT 5TRAI6HT LINE 

7250 IF Jp-1 THEN OUTPUT 0Io_jjath»X ,Y 

7252 Sx-Sx+X 

7255 Sy-Sy+Y 

7258 Sx9-Sxs+X*X 

7261 Sxy*Sxy+X*Y 

7264 IF Ifi-1 AND Jj*0 THEN OUTPUT IFxlejBvol ,Banp ,Etp ,Fn ,T1 ,T2 .Pvapl ,Pvap2 .Emf( 

• > 

7267 J-J+1 

7270 IF J<Nrun THEN 6925 


139 






7273 Sl«(Nrun«Sxy-Sy«Sx)/(Nrun*Sx»-Sx*2 > 
7276 IF Iwil-2 THEN 

7286 IF Ihi-0 AND Inn-0 THEN SI-!/.027 

7287 IF Ihi-0 AND Inn-2 THEN S1-I/.0S 

7288 IF Ihi-0 AND Inn-3 THEN S1-1/.07 

7289 IF Ihi-1 OR Ihi-2 THEN 

7291 IF Inn-0 THEN Sl-1/1.0 

7292 IF Inn-2 THEN Sl-1/2.0 

7293 IF Inn-3 THEN S1-1/2.S 

7294 END IF 

7296 END IF 

7297 Ac-<Sy-Sl*Sx)/Nrun 

7298 Cic-1/Sl 
7300 Alpc-1/Ac 
7303 Jj-Jj+1 

7306 IF Jp-1 THEN Jp-2 
7309 Cerr-ABS<(Cic-Ci )/Cic) 

7312 Aerr-ABS<<Alpc-Alp )/Alpc) 

7315 IF Cerr>.001 OR Aerr>,001 THEN 
7318 Ci-(Cic+Ci .5 

7321 Alp-(Alpc+Alp )*.5 

7324 BEEP 

7327 IF IJob-1 THEN 6910 

7330 ELSE 

7333 IF Jp-0 THEN Jp-1 

7336 END IF 
7339 IF Jp-1 THEN 6874 
7342 Ci-(Ci+Cic )«.5 
7345 PRINT 


7346 

IF Ihi-0 

THEN 





7348 

PRINT 

USING *10X,"*Ci 

(based on 

Sieder-Tate) 

- 

" .Z.4D“;Ci 

7349 

END IF 






7350 

IF Ihi-1 

THEN 





7351 

PRINT 

USING *10X.’*Ci 

(based on 

Sleicher-Rouse) 

- 

" ,Z.4D"»Ci 

7352' 

PRINT 

USING •10X,"*Ra 

exponent ■ 

for Sleicher-Rouse 

• 

" ,D.DDO"«Sra 

7353 

END IF 






7354 

IF Ihi-2 

THEN 





7355 

PRINT 

USING 'IGX/’Ci 

(based on 

PetuXhov-Popov) 

• 

" .Z.40*;Ci 

7356 

END IF 






7357 

IF Ioc-0 

THEN 





7358 

PRINT 

USING *I0X."Alpha (based 

on Nusselt (Tdel)) 

• 

" .Z.4D"jAlp 

7359 

END IF 






7360 

IF Ioc-1 

THEN 





7361 

PRINT 

USING ‘10X,"Alpha (based 

on Fuji! (Tdel)> 

• 

" ,Z.4D*;Alp 


7362 END IF 

7363 IF Inan-5 OR Inan-6 THEN 

7364 IF Ihi-0 THEN 

7366 IF Ipco-0 AND Inn-0 THEN Alpsn-.8218 !NO INSERT .VACUUM.S-T 
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7367 

7363 

7363 

7371 

7372 

7373 

7374 

7375 

7376 
7378 
7373 

7380 

7381 

7382 

7383 

7385 

7386 

7387 

7390 

7391 

7392 

7393 

7394 
7396! 

7397 

7398 

7399 

7401 

7402 

7403 

7404 

7405 

7406 

7407 

7408 

7409 

7410 

7519 

7520 
7522 
7525 
7S28 
7531 
7534 
7537 
7540 
7543 



IF 

Ipco-l 

AND 

Inn-0 


IF 

Ipco-0 

AND 

Inn' 

•3 


IF 

Ipco-1 

AND 

Inn-3 

ENC 

1 IF 




IF 

Ihi 

-I THEN 




IF 

Ipco-0 

AND 

Inn-0 


IF 

Ipco-1 

AND 

Inn-0 


IF 

Ipco-0 

AND 

Inn-3 


IF 

Ipco-1 

AND 

Inn* 

■3 

ENC 

1 IF 





IF 

Ihi 

-2 then 




IF 

Ipco-0 

AND 

Inn-0 


IF 

Ipco-I 

AND 

Inn-0 


IF 

Ipco-0 

AND 

Inn-3 


IF 

Ipco-1 

AND 

Inn-3 


THEN Alp5«*.7793 
THEN Alpsn«.78S4 
THEN Alpsn-.7769 


THEN Alpsn*.86t3 
THEN Alpsn-.82I8 
THEN AlpsKf.7791 
THEN Alps««.7929 


THEN Alpsn*.8295 
THEN Alps»*.7654 
THEN Alpsn-.7B70 
THEN Aipsn«.7708 


!N0 INSERT .ftTMOSPHERiC .S-T 
tHEATEX.VfiCUUH.S-T 
iheatex .ATNOSPHERIC.S-T 


I NO INSERT.VACUUM.S-R 
‘NO INSERT.ATMOSPHERIC.S-R 
‘HEATEX .VACUUM.S-R 
•HEATEX .ATMOSPHERIC.S-R 


'.NO INSERT .VACUUM .P-P 
'.NO INSERT .ATMOSPHERIC .P-P 
'HEATEX.VACUUM .P-P 
IHEATEX.ATMOSPHERIC .P-P 


END IF 
END IF 

IF In«n«4 THEN 

IF Ipco-1 THEN Alpan«.87S (SWENSEN DATA 9ASE0 ON DEL-T 


END IF 

IF ln«n»0 OR Ina«*3 OR Inan*7 THEN 

IF Ipco-0 THEN Alpsn-.Sl ICOBB VTSMTHl 

IF Ipco-1 THEN Aipsn».8S ICOBB ATSMTHl 

IF Ift-1 THEN Alpi(n-.733 IZEBROWSKI <V - 0.45 «/»> 
IF Iff1 THEN Alpsn-.677 'VAN PETTEN (V - 0,25 n/i) 
IF Iff2 THEN Alpsn-I.2S2 
END IF 

IF Inawl then (MlTROU ALPHA FOR P-P FROM REPROCESSING 
IF Ipco-0 THEN Alp9n-.8437 

IF Ipco-1 THEN Alp9in«.3418 

END IF 


Et-Alp/Alpsn 
Eq-Et'1.333333 

PRINT USING "lOX .'•Enhancenant (q) - **,00.30*;Eq 

PRINT USING 't0X,**Enhancenent (Oel-T) - •*.D0.30*;Et 

ASSIGN #File TO • 

SUBENO 
SUB Modify 
COM /Fid/ Ift.Istu 
DIM Enf<20) 

BEEP 

INPUT 'ENTER NAME OF FILE TO BE MODIFIED* .Fileot 
ASSIGN •FUao TO FilaoS 
CREATE BOAT 'TEST',30 
ASSIGN GFilad TO 'TEST' 

ENTER OFileoafa.Inn 
OUTPUT tFiladjIfg.Inn 


141 



7544 IF I#tu-0 THEN 

7546 ENTER fFileojlut.Fp.Fu.Fh 

7547 OUTPUT •Filed;lut.Fp.Fu .Fh 
7546 ELSE 

7549 IF If0-0 then 

7551 ENTER 0FileoiIut 

7552 OUTPUT #Filed;Iut 

7553 END IF 

7554 IF Ifg-I THEN 

7555 ENTER 0Fileo;Fp .Fw .Fh 

7556 OUTPUT 0FilediFp.Fw.Fh 

7557 END IF 

7559 END IF 

7560 BEEP 

7561 INPUT -ENTER NUMBER OF OATR SETS STORED* .N 

7562 FOR 1-1 TO N 

7563 IF l8tu-0 THEN 

7565 ENTER 6Fileo;Bvol,Banp ,Etp.Fn ,T1 ,T2 .Pvapi ,Pvap2 ,Enf(* ) 

7566 ELSE 

7567 ENTER BFileoiBvol,Banp .Utran.Etp .Enf(0) .Enf(1 ) .Enf(2) .Enf<3 > .E«f(4). 
Fn ,T1 ,T2 .Phg .Pwater 

7568 END IF 

7570! PERFORM CORRECTIONS 

7571 PRINT USING ■2X.--00 YOU WISH TO DELETE POINT*DO .•*'?“•*; I 

7572 INPUT -0-YES. 1-NO* . I del 

7573 IF Idel-0 THEN 7580 

7576 IF I»tu-0 THEN 

7577 OUTPUT 0Filed;Bvol.Banp.Etp,Fn.Tl ,T2 ,Pvep1 .Pvap2 ,E«f(* ) 

7578 ELSE 

7579 OUTPUT 0Filed;Bvol,Banp.Vtran.Etp.Enf<0 ) .Enf(1 ) .Enf(2),Emf(3 ) .Enf ( 4) 
.Fn.Tl .T2 .Phg ,Pwater 

7580 END IF 

7581 NEXT I 

7582 ASSIGN 0FiIeo TO * 

7583 ASSIGN ©Filed TO * 

7584 SUBENO 

7585 SUB Purg 
7588 BEEP 

7591 INPUT -ENTER FILE NAME TO BE DELETED*.Filet 

7594 PURSE Filet 

7597 GOTO 7588 

7600 SUBbND 

7690 SUB Renan 

7693 BEEP 

7696 INPUT -ENTER FILE NAME TO BE RENAMED*.Fileit 
7699 BEEP 

7702 INPUT -ENTER NEW NAME FOR FILE*,File2t 
7705 RENAME Filelt TO FxleZt 
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7708 GOTO 7693 

7711 SUBEND 

77Z1 DEF FNTvsv55(U) 

7731 COM /CcS5/ T55<5) 

7741 T-T55<0) 

7751 FOR I-l TO 5 
7761 T«T+T55(I 

7771 NEXT I 
7781 RETURN T 
7791 FNEND 
7801 DEF FNTvav56<U) 

7811 COM /CcSB/ T56(5) 

7821 T-T56<0) 

7831 FOR I-l TO 5 

7841 T-T+TS6(I )*U*I 

7851 NEXT I 

7861 RETURN T 

7871 FNEND 

7881 DEF FNTvsv57<U) 

7891 COM /Cc57/ T57<5) 

7901 T-T57(0) 

7911 FOR I-l TO 5 

7921 T-T+T57<I)*V*I 

7931 NEXT I 

7941 RETURN T 

7951 FNEND 

7961 DEF FNTv8vS8<U) 

7971 COM /Cc58/ T58<5) 

7981 T-T58(8) 

7991 FOR I-l TO 5 
8001 T-T+T58( I )*V''I 

8011 NEXT I 
8021 RETURN T 
8031 FNEND 

8100 DEF FNTfric(Tear ) 

8110 COM /Fpic/ Istuo .Inn,Ityp,Uw,Inano,Imco,Itd8 

8113 IF Itds-3 RND Inn-3 THEN ! COBB’S TUBES <Di-12.7nrt) 

8114 Tcor-Tcor-(2.524E-5-1.S958E-3*Uu+7.10B4E-3*Vw*2-3.31BE-3*Uw*3+8.5S45E-4 
•Vu-4-7.37E-5*Uu‘‘S) 

8115 60T0 8300 

8116 END IF 

8121 IF (Itds-1 OR Itds-2) AND Inco-0 THEN I MEDIUM AND LARGE COFFER TUBES (Oi- 
12.7nn) 

8122 IF Inn-0 AND Uu>.5 THEN Tcop-Tcor-(-2.73E-4+l.75E-4*Vw+9.35E-4*Vu*2-l.9 
5E-5*Vu-3) 

8130 IF Inn-1 THEN Tcor-Tcor-(-6.44E-5+1 .71E-3*Uu+4.4S£-4*Uu*2+4.07E-5*Uu''3 ) 

8140 IF Inn-2 THEN Tcor-Tcor-(-3.99E-4+2.75E-3*Vw+l.4SE-3*Uu*2+8.16E-5*Uu''3> 

8150 IF Inn-3 THEN Tcop-Tcop-( 8.57E-5+1.23E-3*Uu+l.08E-3*Uw*2+8.1SE-5*Uw*3 ) 
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8151 GOTO 8300 
8160 END IF 

8170 IF (Ityp-0 OR Ityp-Z) AND Iinco-4 THEN ! SMOOTH AND WIRE-WRAPPED TITANIUM T 
UBE (Di“13.86nn) 

8180 IF Inn-0 AND Uu>.5 THEN Tcor-Tcor-(-4.62E-5-7.53E-4«Uui+1.BeE-S-Uw^Z-B.8 
4E-5*Uw*3) 

8180 IF Inn-3 AND Inano-5 THEN Tcor-Tcor-( 2.09E-4+9.74E-4*Uu+2.1 2E-3*Uu‘'2-3. 
31E-5*Uw“3) 

8191 IF Inn-3 AND Inano-6 THEN Tcor-Tcor-(1.9555E-4+3.9721E-3*Uy+3.127E-4*Uu 
*2+3.519E-4*Uu*3) 

8192 GOTO 8300 
8201 END IF 

8210 IF (Ityp-3 OR Ityp-4) AND Itds-4 THEN ! LPD KORODENSE (Di-13.47nn) 

8220 IF Inn-0 AND Uu>.5 THEN Tcor-Tcor-(-3.386E-4+1.88E-3«Uu+6.013E-4*Uw’2+4 
.133E-5«Uw*3) 

8230 IF Inn-3 THEN Tcor-Tcor-<2.089E-4+9.202E-4*Uw+1.893E-3*Uu*2-2.781E-5*Uu 
*3) 

8231 GOTO 8300 
8240 END IF 

8242 IF <Ityp-5 OR Ityp-6) AND Itd9-4 THEN ! MHT KDRODENSE (Di-13.53mn) 

8245 IF Inn-0 AND Uu>.5 THEN Tcor-Tcor-(B.79E-5+1.B32E-3*Uu+8.409E-4*Uu*2+1. 
1 1 1E-4*Uu''3) 

8246 IF Inn-3 THEN Tcor-Tcor-<2.564E-4+6.263E-4*Uu+2.B03E-3*Uu*2+7.830E-B*Uw 
*3) 

8247 GOTO 8300 

8249 END IF 

8250 IF Itd8-0 AND Inco-O THEN 'SMALL COPPER TUBE (Di-9.525r(n> 

82B0 IF Inn-0 THEN Tco7-Tcor-(.0138+.001*Uw"2> 

8270 IF Inn-1 THEN Tcor-Tcor-.004*Uw-2 

8280 IF Inn-2 THEN Tcor-Tcor-.004*Uw*2 

8290 END IF 

8300 RETURN Tcor 

8310 FNEND 

8500 SUB Mergefile 

8510 DIM Enf(20) 

8520 BEEP 

8530 INPUT -ENTER NAME OF NEW FILE" .D_f iie$ 

8540 CREATE BOAT O_file$,50 
8550 ASSIGN SFiled TO D_file$ 

8560 BEEP 
8570 Nunb-0 
8580 BEEP 

8590 INPUT -NUMBER OF FILES TO MERGE- .N 
8B00 IF Nunb-N THEN 3770 
8610 Nunb-Nunb+1 
8620 BEEP 

8630 INPUT -ENTER FILE TO BE MERGED-,FileoS 
8640 ASSIGN SFileo TO FllaoS 
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8650 ENTER IFileo;Ifg .Inn 

8660 IF Nunb-1 THEN OUTPUT #Fi ledi Hg .Inn 

8670 ENTER iFiUojIut .Fp.Fu.Fh 

8660 IF Nunb-l THEN OUTPUT 0Filed«Iwt .Fp .Fw ,Fh 

8690 BEEP 

8700 INPUT "ENTER NUMBER OF DATA SETS STORED" ,Nrun 
8710 FOR I-l TO Nrun 

8720 ENTER 0FlleoiBvol,Banp ,Etp ,Fn .Tt ,T2 .Pvapi .Pv«p2 ,Enf(•) 

8730 OUTPUT 0FilediBvol.Banp .Etp ,Fn,Tl ,T2 .Pvapi ,Pvap2 ,Enf<• ) 

8740 NEXT I 

8750 ASSI6N 0Fxlao TO • 

8760 60T0 8600 

8770 ASSIGN 0Filed TO • 

8780 SUBENO 

8790 SUB Xyoutput 

8791 PRINTER IS 1 

8800 INPUT "ENTER NAME OF PLOT DATA FILE“,Filep* 

8810 ASSIGN ®Filep TO FilepS 

8820 INPUT "ENTER NUMBER OF DATA POINTS",Npts 

8821 PRINTER IS 701 

8830 FOR I-l TO Npts 
8840 ENTER 0FilepjX,Y 

8850 PRINT X,Y 

8860 NEXT I 

8870 ASSIGN •Filep TO ♦ 

8880 SUBENO 
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APPENDIX B. TEMPERATURE RISE CORRECTION 


As coolant flows through the tube there is an increase in 
the bulk temperature of the fluid due to frictional heating. 
The amount of frictional heat added to the system depends on 
the fluid velocity and the inside geometry of the tube. The 
actual measured increase in temperature is small but the 
Increase has a significant effect on the calculated overall 
heat transfer coefficient and later calculations. The 
correctional equation below: 

Tcor * 2.524e-5 - 1.6958e-3*V_ + 7.1064e-3*V ^ -3.318e-3 
* + 8.5545e-4 * - 7.37e-5 * 

where T^^,^ is the temperature rise (K) and is the fluid 
velocity (m/s). Equation (B.l) was determined by measuring the 
temperature difference between the inlet and outlet 
thermocouples for various cooling water flow rates through a 
test tube with a Heatex insert and no external heat source 
(i.e., no steeun in the test system). The flow rates were 
converted into velocities and plotted against the temperature 
difference as shown in Figure B.l. Equation (B.l) was the 
curve fit of the obtained data. The temperature rise 
correctional value was subtracted from the measured 
temperatvire difference during the data runs to de ermine the 
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actual haat transfarred to the cooling water conducted from 
the stean. 
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FRICTIONAL CORRELATION FOR INCREASE IN COOLANT WATER FLOW WITH A 

HEATEX INSERT 




Figure B.l Frictional Correlation for the Increase in 

Coolant Water Temperature due to a change in 
Velocity Flow and a Heatex Insert 
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Fl«« Vtltally (mlt) 








APPIMDZZ C. MODEL FEOOBEM LZ8TZMG 


The program HEATCOBB, which was used to reprocess the 
temperature values obtained, from the data collection program 
DRPALL, to predict the outside heat transfer coefficients and 
enhancement ratios for a constant teiq>erature differences 
(AT), is listed in this Appendix. 
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IMPLICIT REAL*S (A-H.O-Z) 

REALMS OBSIO, DBSIl. DBSKO. DBSXl, KC, 

* W, NC, R2C, A.6, DT(20,3) .PITCH, Y.QFFdOOO) , 

* R1,R2,IIU,RB,02,DR,1U10F(1000) ,RHOG(1000) ,RHO(1000) , 

C * EFF(IOOO), Xl(lOOO), X2(1000),CH(1000),Z(1000), 

C * AF8(1000), AFT(1000),AU(1000),DF(1000), 

C • Y(IOOO), LA(IOOO), AEF(IOOO), DE(IOOO), HMF(IOOO), 

CCCCCCCCCCCCCCCCCCCCCCCc 

C THE ARRAY VALUES ABOVE ARE USE FOR THE OVERALL RANGE OF FIN 

C EFFICIENCIES AND HEAT TRANSFER COEFFICIENTS. FOR A SPECIFIC 

C FIN EFFICIENCY OR HEAT TRANSFER COEFFICIENT USE THE CONSTANT/ 

C SCALER VALUES BELOH. ONE MUST BE COIOfENTED OUT!!! 
CCCCCCCCCCCCCCCCCCCCCC 

* ETA, X1,X2,AEF,LA,AFS,AFT,DE,AU,DF,CH,Z,MMF, 

* LI,L2,AO,RATIO,THICK,SPACEB,SPACET,TOL,LEN,TST£AM(1000). 

* P(IOOO),VF(1000),HFG(1000),CPF(1000),TFILM(1000),TFC(1000), 

* UG(IOOO),KF(1000),PRF(1000),SIGNA(1000),CPG(1000),UF(1000), 

* VG(IOOO),BETA,BT,BF,BS,B1,PHI(1000),FF(1000),FS(1000),HV(1000}, 

* QT(IOOO),QF(1000),QS(1000),EPH(1000),QQF(1000),QQS(1000), 

* QNUS(IOOO),GT(1000),EDT(1000),GS(1000),GF(1000),TF(1000), 

* TS(IOOO),TT(1000),EOTC(1000),TSTM(20,1),TFLM(20,2),HO(20,4), 

* HS(1000),HF(1000),HN(1000),ENH, 

* HBKSMH,HMSMH,HNUSS,FFI(1000),FSI(1000),PHIP(1000), 

* Fl(lOOO),F2(1000),Arf(1000),Ar(1000),Atr(1000),AtS(1000), 

* RSA(IOOO),IEAA(1000),MAXENH(1000),AT,AF(1000).AS(IOOO), 

* ATOTAL(1000),HR(1000) 

PARAMETER (PI-3.141592654) 


INTEGER L,F.J,TM,AR£A,JJ 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C NU: NUMBER OF FINS PER UNIT LENGTH 

C LEN: CONDENSING LENGTH OF TUBE 

C LI: LENGTH PRIOR TO CONDENSING LENGTH THAT ACTS AS A FIN 

C L2: LENGTH AFTER THE CONDENSING LENGTH THAT ACTS AS A FIN 

C KC: THERMAL CONDUCTIVITY OF THE TUBE MATERIAL 

C H: —> FIN HEIGHT (h) 

C DR: ROOT DIAMETER OF TUBE 

C 02: OUTER DIAMETER AT FIN TIP 

C SPACET: SPACING AT THE TIP OF THE FIN (b) 

C SPACEB: SPACING AT THE BASE OF THE FIN (s) 

C G: GRAVITY FORCE 

C CH: INPUT HEAT TRANSFER COEFF USED TO DETERMINE THE HTC WITH 

C * THE EFFICIENCY FOR THE MATERIAL 

C ETA: FIN EFFICIENCY 

C PITCH: PIN PITCH 

C P: PRESSURE AT THE STEAM TEMPERATURE 

C VF: SPECIFIC VOLUME OF THE CONDENSATE AT THE FILM TEMPERATURE 

C VG: SPECIFIC VOLUME OF THE STEAM VAPOR 

C RHOF: THE DENSITY OF THE CONDENSATE 

C RHOG: THE DENSITY OF THE STEAM VAPOR 

C RHO: THE DIFFERENCE BETWEEN THE TWO DENSITIES 

C HFG: HEAT OF VAPORIZATION AT THE VAPOR TEMPERATURE 

C CPF: SPECIFIC VOLUME OP CONDENSATE 

C CPG: SPECIFIC VOLUME OF CONDENSATE 

C UF: VISCOSITY OF CONDENSATE 

C UG: VISCOSITY OF STEAM 
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C KF: THZmAL OMIOUCTIVITy OF OMDENSATE 

C FRF: PRANOTL HUMBER OF CONOEHSATE 

C SZCaU: SURFACE TENSION OF C^IDENSATE 

C HNF: HBX: MEAT TRANSFER COEFFICIENT BASED (»l BEATTY AND KATZ 

C * O}RRELATI0N 

C HNUSS: MEAT TRANSFER COEFFICIENT BASED (»l NUSSELT CORRELATION 

C AU: UNFZNNED SURFACE AREA 

C AFS: AREA OF FIN FLANK 

C AFT: AREA OF FIN TIP 

C AEF: EFFECTIVE SURFACE AREA WITH FINS 

C DE: EFFECTIVE DIAMETER WITH FIN 

C AO: AURFACE AREA OF SMOOTH TUBE HITH OUTSIDE DAIMETER OF 

C * ROOT (WITHOUT FINS) 

C L: D: ADDITKWAL HEIGHT OF RADIUSED FIN ROOTS 

C QQF: TOTAL NEAT TRANSFER RATE OVER ENTIRE LENGTH FOR A FIN TUBE 

C QQS: TOTAL HEAT TRANSFER RATE OVER A SMOOTH TUBE HITH DIAMETER 

C * EQUAL TO THE ROOT DIAMETER 

C ONUS: TOTAL HEAT TRANSFER RATE BASED ON NUSSELT CORRELATION 

C EDT: ENHANCIMENT RATIO (HEAT>TRANSFER COEFFICIENT FOR FINNED 

C * TUBE DIVIDED BY THE HEAT TRANSFER COEFFICIENT FOR A SMOOTH 

C * TUBE HITH THE SAME DIAMETER) 

C GS: CONSTANT VALUE IN EQN 

C TS: CONSTANT VALUE IN EQN 

C GF: CONSTANT VALUE IN EQN 

C TF: CONSTANT VALUE IN EQN 

C EDTC: CHECK OT THE ENHANCOtENT RATIO 

C TT: CONSTANT VALUE IN EQN 

C GT: CONSTANT VALUE IN EQN 

C BT: CONSTANT VALUE FOR b AT FIN TIP 

C BF: CONSTANT VALUE FOR b AT FIN FLANK 

C BS: CONSTANT VALUE FOR b FOR INTERFIN TUBE SPACING 

C Bl: CONSTANT VALUE 

C BETA: HALF-ANGLE AT THE FIN TIP 

C PHI: CONDENSATE RETENTION OR "FLOODING” ANGLE TKOH TOP OP TUBE 

C FF: FRACTION OF UNFLOODED PART BLANKED BY RETAINED CONDENSATE 

C * AT FIN ROOT 

C FS: FRACTION OF UNFLOODED PART OF INTERFIN TUBE SURFACE 

C * BLANKED BY RETAINED CONDENSATE AT FIN ROOT 

C HV: EFFECTIVE MEAN VERTICAL FIN HEIGHT 

C QT: HEAT FLUX FOR FIN TIP 

C QF: HEAT FLUX FOR FIN FLANK 

C QS: HEAT FLUX FOR TUBE SURFACE BETWEEN FINS 

C EPH: FUNCTION VLAUE OF CONDENSATE RETENTION ANCLE 

C THICK: FIN THICKNESS (t) 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
OPEN (15, FILE- 'HEATCOBB OUTPUT') 
c s«l«ct typ« of Mtorial (tm) 

c 0-copp«r, l-stainl«ss staal, 2-aluainuB, 3-coppar nickal 

TM- 2 

c aalact surfaca araa aquation (araa) 

c l-ractangular fin, 2-daop fillat radius, S-shallov fillat radius 

AREA- 3 

c salact tha nuabar of data points 




u u 


IP (tM .EQ. 0) 1HEN 
ke« 390.ta 

writ«(i9,*) 'typ« Mtcrial- eopp«r' 
writ«U9,*) 'thSTMl conductivity (kc):',kc 
C mo IP 

BLSEiP (TN .iQ.i) nm 

kc- 14.3 

«arit«(15,*) 'typo Botoriol- stainloss stool' 
trrito(15,*) 'thoxmal conductivity (kc):',kc 
C END XP 

ELSEIP (TM .EQ. 2) THm 
kc« 231.9 

writo(lS,*) 'typo Botoriol- oluainua' 
vrito(15,*) 'thoraal conductivity (kc):',kc 
C EMD IP 

ELSE 

kc- 55.3 

writo(15,*) 'typo notoriol* coppor nickol' 
writo(l5,*) 'thoraol conductivity (kc):',kc 
ond if 

IP (AREA .EQ. 3) THm 
dr- 14.390-3 
M -.79E-3 
olso 

H -lE-3 
dr- 13.990-3 
ond if 

C DR- 13.7E-3 
Lm- .13335 
LI- .060325 
L2- .034925 
BETA- 0 
BT- 0.143 
BP- 0.143 
BS- 0.143 
Bl- 2.96 
THICK- 1*10. **(-3) 

S-1.5E-3 
JJ-0 

DO 5 S- .9E-3,2.5E-3,.05E-3 
SPACED- 2.5 • 10.**(-3) 

SPACED- S 
C JJ- JJ*! 

C WRITE (15,*) 'RUN HUMBER -',JJ 

SPACET- SPACm 

OPm (16, PILE- 'VT131 PORTRAN') 

NRITE(15,*) 'OUTPUT POR VT131' 


PITCH- SPACm*THICK 
C N - 0.000001 

Rl- DR/2. 

D2- DR * 2*H 
R2- D2/2. 

HC- W * THICK/2. 
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uuu uuuu u u uu 


UC- K3 * raiCX/2. 

RA- sQirr(2.)/(i. - Ri/mc) 

RB- (R1/R2C) * RA 
T- THICK 
L- .25«-3 

NRlTEdS,*) 

MRITEdS,*) 'PZM HEIGHT -'.H 
IF (AREA .EQ.l) THEN 
A» t*WC 

HRITE(15,*) 'RECTANGUXAR PIN' 

ASC- A 
•nd if 

IP (AREA .EQ.2) THEN 

C A- (L4>T/2)*T-»-(T*SPACET)*8PAC£T/2-(PI*SPACET**2/8) 

%rrit«(l5,*) 'd««p fillttt radius fin' 

A- (T/2*W) * (T-fSPACET) >8PACET* ( (R2- (Rii'8PAC£T/2)) +T/2) 

* -PI/2*(8PACET/2)**2 

C NRITEdS,*) 'SURFACE AREA:' ,A 

Asc« (t-fspsest) *(L4'Spscst/2<*>t/2)• (( (L+t/2) *spscst)■<- 

* (pi*BpscSt**2)/8) 

C HRITEdS,*) 'SURFACE AREA (COBB):',ASC 

and if 

IP (AREA .BQ.3) THEN 

A- (T/2+N) * (T+SPACET) -SPACET* ( (R2- (Rl-t-SPACET/2)) ♦T/2) 
* •PI/2*(8PACET/2)*«2 

A« (T/2)*T4(T*8PACET)*SPACET/2*(PI*SPACET**2/S) 

A- (T/2+H) * (T48PACET) •SPACET* ((R2- (Rl>»-SPACBT/2) )*T/2) 
-PI/2*(SPACET/2)**2 

vritsdS,*) 'shallow fillat radius fin' 

NRITEdS,*) 'SURFACE AREA:',A 

ASC- (T+SPACET) • (SPACET/2-I-T/2) • ( ( (T/2) *SPACET) ♦ 
(PI*8PACET«*2)/8) 

NRITEdS,*) 'SURFACE AREA (COBB):',A 
and if 


A- THICK * WC 

WRITE(15,*) 'CROSS SECTION AREA:',A 

NU- (1/PITCH) * LEN 
G« 9.81 
DO 10 J*1,F 

READ (16,46) TSTN(J,1),TPLM(J,2),DT(J,3),HO(J,4) 
FORMAT (2X,F7.3,4X,F6.3,4X,F5.2,4X,P7.1) 

TSTEAN(J)- 273.15 * TSTN(J,1) 

TFC(J)- TSTEAM(J)/3. * 2*(TSTEAN(J)-DT(J,3))/3. 
TFItM(J)- TFXJI(J,2) * 273.15 

NRITE(15,46) TSTN(J,1),TFIJi(J,2),DT(J,3),HO(J,4) 
NRITE(15,*) 'TFZXJf:',TFILM(J) 

NRITE(15,*) 'NUN INPUT:',J 
NR1TE(15,*) 'TSTEAN:',T8TEAM(J) 

HRITE(15,*) 'TFIIM CALC :', TFC(J) 

P(J)- 2.003732620063*10.**3 >1.77885208776858*10.**! 
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* 

* 


*TSTEAM(J) ♦ 6.697M448«474*10.**(-3)*TSTEAM(J)**2 ♦ 
3.•«086914St44*7*10.**(-4)*TSTEMf(J)**3 - 
1.404502413939*10.**(-«)*TSTEAM(J)**4 * 

* 1.51673236206257*10.**(>9)*TSTEM1(J)**5 

VF(J)• 5.923643369271*10.**(-3)>6.64076036569*10.**(-5) 

* *TFI1II(J) ♦ 3.569837849015*10.** (-7) *TFIUI(J)**2 - 

* 9.61487470533368*10.**(-10)*TFI131(J)**3 + 

* 1.300855464242*10.**(-12)*TFILM(J)**4 - 

* 7.009436103929*10.**(-16)*TFXLM(J)**5 

IF (TSTEMt(J) .LE. 320) THEN 

VG(J)« 3.7765014695224E5 - 4.8166922018646E3 * TSTEAM(J) 

* * 2.30839950003999E1 * TSTEAM(J)**2 

* - 4.92547853988165E-2 * TSTEAM(J)**3 

* + 3.94711740176825E-5 * TSTEMI(J)**4 

ELSE 

VG(J)« 2.0944941102788E4 - 2.57511068255697E2 * TSTEAN(J) 

* * 1.26769945136484 * TST£AM(J)**2 

* - 3.122098724905E-3 * TSTEAM(J)**3 

* + 3.84527176768464E-6 * TSTEAN(J)**4 

* - 1.89417409454379E-9 * TSTEAM(J)**5 

END IF 


HFG(J)- 5.138499737498*10.**6-2.88007195645*10.**4 

* TSTEAM(J) ♦ 1.387146790307*10.**2*TSTEAM(J)**2 - 
3.6214603994528*10.**(-1)*TST£AM(J)**3 * 
4.776360304615*10.**(-4)*TSTEAM(J)**4 - 

2.6171073275132*10.**(-7)*TSTEAM(J)**5 

CPF(J)«i 5.49664984073512*10.**4-6.83922749835455*10.**2 
*TFILM(J)*3.66613575502*TFILM(J)**2-9.774641549244E-3 

* TF1IJI(J)**3 ♦ 1.2944551269757E-5*TFILH(J)**4 - 
6.78966872244218*10.** (-9) *TFIIII(J)**5, 

CFG(J)- -7.0138991625627*10.**(2)*3.10681344157*10.**(1) 

* TSTEM*(J) - 1.43330809031838*10.**(-1)*TSTEM!(J)**2 + 
3.102487339759*10.**(-4)*TSTEAM(J)**3 - 
3.37533518371059*10.**(-7)*TSTEAM(J)**4 ♦ 

2.09976698784749*10.**(-10)*TSTEAM(J)**5 

UF(J)- 5.28866616855338*10.**(-1)-6.9064403925*10.**(-3) 

* TFILM(J) + 3.6169015509742*10.**(-5)*TFILM(J)**2 - 
9.475113986937*10.**(-8)*TFILM(J)**3 + 

1.2401320526629*10.**(-10)*TFILM(J)**4 - 
6.48230688486946*10.**(-14)*TFILN(J)**5 

UG(J)* -1.0493495919E-4 * 1.520614407775E-6 

* TSTEAM(J) - 8.509310662084E-9 *TSTEAM(J) * 
2.418828484978E-11 *TSTEAN(J)**3 - 
3.39717932745E-14 *TSTEM((J)**4 * 

1.88340981436E-17 *TSTEAM(J)**5 

KF(J)- 7.60929710087 - 1.097443071183E-1 *TFILN(J) * 
6.476232148521E-4 * TFILH(J)**2 - 
1.83877277459E-6 *TFILM(J)**3 + 

2.5564025355E-9 *TFIUf(J)**4-1.4068703896348E-12 

* TFIU!(J)**5 
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PRF(J)- 4.S83467922E-t-3 • 6.00442918616E+1 *TFZLM(J) * 

* 3.150508584456E-1*TFZLM(J)**2 >8.2625902332188E-4*TFILM(J)**3 

* +1.0820«49955124E-6*TFILM{J)**4 -5.6571205177E-10*TFILM(J)**5 

SZ(aiA(J}- >2.11271594796 3.1290868968E-2 *TFILM(J} - 

* 1.76251989006E-4 •TFILM(J)**2 •t'4.91136030868E>7*TFILM(J) **3 

* -6.80272511265E-10*TP1LM(J)*M +3.742781911254E-13*TFILM(J) 

RMOF(J)- l./VF(J) 

RHOG(J)- l./VG(J) 

RHO(J)« KHOF(J) > lUIOG(J) 

C WRITE(15,34) 

C34 F0RMAT(1X,T3,'TFILM',T13,'P*,T22,'VF',T32,'VG',T41,'HFG', 

C • T52,'CPP',T64,'CPC') 

C WRITE(15,35) 

C35 F0RHAT(1X,T3,'(K)',T11,'(KPA)',T20,'(M3/KG)',T30,'(M3/KG)', 

C • T40,»(J/KG)',T51.MJ/(KG*K))*,T62,'(J/(KG*K))') 

C WRITE(15,36) TFILM(J), P(J),VF(J),VG(J),HFG(J),CPF(J),CI»G(J) 

C36 FORMXT(1X,F6.2,T10,F7.3,T19,F8.6,T29,P7.2,T38,F10.2,T52, 

C * F7.2,T64,F7.2) 

C WR1TE(15,*) 

C WRITE(15,37) 

C37 FORMAT (1X,T5,'UF',T16,'UG',T33,'KF»,T46,'PRF', 

CC * T55,'SIGMA') 

C WRITE (15,38) 

C38 FORMAT (1X,T3,'(N*S/M2)',T14,'(H*S/M2)', 

C * T30,'(W/M*K)',T55,'(H/M)') 

C WRITE (15,39) UF(J),UG(J),KF(J),PRF(J),SIGMA(J) 

C39 FORMAT(1X,T2,P9.7,T13,F10.8,T31,F6.4,T45,F6.3,T55,F6.4) 

C WRITE (15,*) 

C WRITE (15,*) 

TOL- 1.0 
CH- 0.0 
DNl- .00193788 
KMF- 1.0 

51 IF (ABS(CH-HMF) .GE. TOL) THEN 
CHv HMF 

Z« (WC**1.5)*(CH/(A*KC))**.5 
XI- RA*Z 
X2- RB*Z 

Eta-((DSQRT(2.DO)/Z)/(1*R2C/R1))*((DBSIl(XI)*0BSK1(X2)• 

* DBSIl (X2) *DBSK1 (XI)) / (DBSIl (XI) *DBSX0 (X2) -t-DBSIO (X2) 

* *DBSK1(X1))) 

APT- NU*PI*D2*THICK 

LA- (PI*(D2**2-DR**2))/(4*D2) 

AU- MU*DR*SPACEB*PI 

APS- (2*NU*Pl*(D2**2-DR**2))/4. 

AEF- Eta*AFS * Eta*AFT * AU 

Y- 1.3*ETA*APS/(AEF*LA**.25)+(ETA*AFT)/(AEF*D2**.25)+ 

* AU/(AEF*DR**.25) 


DE- (l/y)**4. 

DF- ((1./DE)**.25)/(1./DN1)**.25 

HMF- 0.689*((KF(J)**3 • RHOF(J)**2 * G * HFG(J)) 
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/ (OP(J)*OT(J.3)*DE))**.25 


HBKSNH- 0.<89*((KF(J)**3*1U10F(J)**2*G*HFG(J))/ 

(OF(J)*DR*OT(J.3)))**.25 

RMUSS- 0.728*(KF(J)/OE)*((RHOF{J)*(RHOF(J)-RHOG(J))*G*HFG(J) 
*DE**3) / (OF(J) *OT(J,3) *1CF(J) ) ) **.25 

MMSHH« 0.728*(KF(J)/DR)*((RHOF(J)*(RliOF(J)>RMOG(J))*G*HFG(J) 
*OR**3)/(UF(J)*DT(J,3)))**.25 


GO TO 51 
END IF 
WRITE (15,*) 

AO- PI* DR * LEN 
C HRITE(15,*) 'AEF:',AEF 

C tlRITE(15,*) 'AO:', AO 

RATIO- AEF/AO 

C WRITE(15.*) 'ETA:'.ETA 

C WRITE(15,*) '2:',Z 

C lfRITE(15,*) 'HMF:'.HMF 

ENH- KMF*RATIO/HNSMH 


hEa- )iaf*ratio 
C WRITE (15,70) 

C 70 FORMAT (IX,T<,'HO(EXP)',T19,'HBK',T29,'AEF/AO',T39,'DT') 

C WRITE (15,71) HO(J,4),HFM,RATIO,OT(J,3) 

C71 FORMAT (1X,T4,F7.1,T14,F10.2,T28,F8.6,T39,F5.2) 

C WRIT£(15,72) 

C72 FORMAT(IX,T2,'8MUSS',T15.'ENH BiK',T39,'HBKSMH', 

C * T51,'HNSMH') 

C WRITE(15,73) HNUSS,ENH,HBKSMH,HNSMH 

C WRITE(15,*) 'HO (EXP)-',HO(J,4) 

C73 FORMAT(lX,F9.2,T15,F6.3,T36,F9.2,T48,F9.2) 

WRITE (15,*) 'HBK-',HFM 
C WRITE (15,*) 'SIGMA:',SIGMA(J) 

WRITE (15,*) 'ENH(BtX)-', ENH 
C WRITE (15,*) 'SPACING-', S 

C35 CONTINUE 

phip(j)- sigaa(j)*dcos(b«ta)/(rhof(j)*g*»p«c«t*d2) 
if (phip(j) .gt. 0.5) than 
phi(j)- 0.0 

PHI(J)- DACOS((4*SIGMA(J)*DCOS(BETA)/(RHOF(J)*G*SPACET*D2))-l) 
•nd if 
c 

EPH(J)- 0.874-f0.1991E-2*PHI(J)>0.2642E-l*PHI(J)**2 
* •f0.553E-3*PHI(J)**3 - 0.1363E>2*PHI(J)**4 

C 

if (phi(j) .aq. 0.0) than 

«i(j)- 1 

alsa 

IF (AREA .EQ. 3) THEN 
FFI(J)- 1 
END IF 
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IF (JAZA .EQ. 1) THEN 


PFI (J)- (2*SI<aU( J) / (1UI0P( J) *G*DR*H)) * (TAN (PHI (J) /2.) /PHI (J)) 

END IP 

IF (AREA .EQ. 2) THEN 

PFI(J)- (2*SIGNA(J)/(RHOF(J)*G*DR*(R2-(Rl-^S/2))) )* 

* (TAN(rai(J)/2.)/PHI(J)) 

END IF 

•nd if 

IF(FFI(J) .6E. 1) THEN 
ff(J)- 1 

ff(j)- ffi(j) 

•nd if 

if (phi(j) .aq. 0.0) then 
1 

•!•• 

fsi(J)- (4*SI<'HA(J)/(RHOF(J)*G*DR*SPACEB))*(TAN(PHI(J)/2.) 

• /PHI(J,) 

•nd if 

IF (FSI(J) .GE. I) THEN 
f«(j)- 1 

•!•• 

f*(j)- f«i(j) 

•nd if 

IF (AREA .NE. 1) THEN 
FS(J)- PHI(J) • S/2 
END IF 


C FOR PHI(J)< PI/2 

IF (phi(j) .aq. 0.0) then 
hv(j)- w 

IF (AREA .EQ. 2) THEN 
HV(J)- (R2-(Rl+S/2)) 

END IF 

IF (AREA .EQ. 3) THEN 
HV(J) ■ 0 
END IF 

•!•• IF (PHI(J) .LE. (PI/2.)) then 
HV(J)« N*PHI(J)/SIN(PHI(J)) 

IF (AREA .EQ. 2) THEN 

HV(J) - (R2>(Rl+S/2))*PHI(J)/SIN(PHI(J)) 

END IF 

IF (AREA .EQ. 3) THEN 
HV(J)- 0 
END IF 

C FOR PHI(J)> PI/2 
ELSE 

HV(J)- N*PHI(J)/(2.>SIN(PHI(J))) 

IF (AREA .EQ. 2) THEN 

RV(J) -(R2-(Rl-»-S/2)) *PHI (J) / (2.'SIN(PHI (J))) 
END IF 

IF (AREA .EQ. 3) THEN 
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HV(J)« 0 
END IF 
END IF 
C 

QT(J)- (RHOF{J)*HFC(J)*KF(J)*«3*DT(J,3)**3/UF(J) 

* *(0.728**4*RHO(J)*G/D2+BT*SIGHA(J)/THICK**3))**.25 
C 

IF (HV(J) .EQ. 0) THEN 
QF(J)- 0 
ELSE 

IF (AREA .EQ. 1) THEN 

QF(J)- ((RHOF(J)*HFC(J)*KF(J)**3*DT(J,3)**3/UF(J))*((0.943**4 

* *RHO(J)*G/HV(J))+BF*SICMA(J)/W**3))**.25 
END IF 

IF (AREA .EQ. 2) THEN 

QF(J)- ((RHOF(J)*HFG(J)*KF(J)**3*DT(J,3)**3/UF(J))*((0.943**4 

* *RHO(J)*C/HV(J)) •►BF*SIGMA(J)/(R2-(Rl+S/2))**3))**.25 
END IF 

END IF 

IF (AREA .EQ. 1) THEN 

Q8(J)- ((RHOF(J)*HFG(J)*KF(J)**3*DT(J,3)**3/UF(J))*(EPH(J)**3* 

* RHO(J)*G/DR<t>BS*SIGMA(J)/SPACEB**3))**.25 
ELSE 

Q«(J)- ((RHOF(J)*HFG(J)*KF(J)**3*DT(J,3)**3/UF(J))*(EPH(J)**3* 

* RHO(J)*G/(DR+S*(l-2/PI))+BS*SICMA(J)/ S**3))**.25 
END IF 

C 

QnU8(J)- 0.728*((RHOF(J)*HFG(J)«KF(J)**3*DT(J,3)**3/UF(J)) 

* *(RHO(J)*G/DR))**.25 
C 

IF (AREA .EQ. 1) THEN 

QQF(J)- PI*D2*THICK*QT(J)•ETA+(PHI(J)/PI)*(((l-FF(J))*PI*(D2**2 

* DR**2)/2.)*QF(J)*ETA+(1-FS(J))*PI*DR*B1*SPACEB*QS(J)) 

ELSE 

C 

QQF(J)- PI*(2*R2)*THICK*QT(J)*ETA+(PHI(J)/PI)*(PI*2 

* *(R2**2-(Rl+S/2)**2.)*QF(J)*ETA+PI*2*(PI*S/2)*B1 

* *(Rl+S/2*(1-2/(PI)))*ETA*QS(J)) 

END IF 


CCCCCCCCC FOR ENHANCEMENT WITHOUT EFFICIENCY 

QQF(J)- PI*D2*THICK*QT(J)+(PHI(J)/PI)*(((1-FF(J))*PI*(D2**2- 
* DR**2)/2.)*QF(J)+(1-FS(J))*PI*DR*B1*SPACEB*QS(J)) 

QQS(J)- PI*0R*(SPACEB+THICK)*Qnus(J) 


EDT(J)- QQF(J)/QQS(J) 

C 

GT(J)- SIGMA(J)*DR/(RHO(J)*G*THICK**3) 

C 

GS(J)- SIGMA(J)*DR/(RHO(J)*G*SPACEB**3) 
C 

GF(J)- SIGMA(J)•DR/(RHO(J)*G*W**3) 

C 
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TF(J) -0 

IF (HV(J) .NE. 0) THEN 

TF(J)- ((0.943/0.728)**4*OR/HV(J)+BF*GF(J)/0.728**4)**.25 
END IF 


TS(J)- (EPH(J) **3/0.728**44-BS*GS<J)/0.728**4) **.25 
TT(J)- (DR/D2-»-BT*GT(J)/0.728**4)**.25 
IF (AREA .EQ. 1) THEN 

EDTC(J)-(D2/DR)*THICK/(SPACEB+TH1CK)*TT(J)*ETA+PH1(J)/PI*(1-FF(J)) 

* *((D2**2-DR**2)/(2*DR*(SPACEB+THICK)))*TF(J)*ETA+PHI(J)/PI 

* *(1-FS(J))*B1*(SPACEB/(SPACEB+THICK))*TS(J) 

ELSE 

EDTC(J)- QQF(J)/QQS(J) 

END IF 

QFF(J)- (QF(J)+QT(J)+QS(J))*KU 
AT- PI*D2*T 

AF(J)- (PHI(J)/PI)*((1-FF(J))*PI*(D2**2-DR**2)/2) 

A*(j)- (l-f«(j))*pi*dr*Bl*spac«b 
Atotal(j)- At+Aa(j)+Af(j) 


HS(J)- QS(J)/DT(J,3) 

HF(J)- QQf(j)/(Atotal(j)*DT(j,3)) 

HN(J)- EDTC(J)*QNUS(J)/DT(J,3) 

HR(J)- QQF(J)/(PI*DR*(SPACEB+THICK)*DT(J,3)) 

C WRITE(15,*) »HN;',HN(J) 

WRITE(15,*) 'HO(ROSE) !SHN(J) 

WRITE(15,*) »HR:',HR(J) 

WRITE(15,*) 'EDT:EDT(J) 

%frita(15,*) 

WRITE(15,*) 'TOTAL SURFACE AREA:',ATOTAL(J) 
WRITE(15,*) 'AREA OF TIP:',AT 
HRITE(15,*) 'AREA OF FLANK:',AF(J) 
WRITE(15,*) 'AREA OF SPACE:',AS(J) 


WR1TE(15,*) 'HS:',HS(J) 

WRITE(15,*) 'ENHANCEMENT FROM HEAT FLUX:', QQF(J)/QQS(J) 
HRITE(15,*) 'QNUSS:',QNUS(J) 

WRITE(15,*) 'Edtc:', EOTC(J) 

WRITE(15,*) 'QQF:', QQF(J) 

HRITE(15,*) 'QQS:', QQS(J) 

HRITE(15,*) 'HEAT FLUX ON FIN FLANK QF:', QF(J) 
NRITE(15,*) 'HEAT FLUX AT FIN INTERSPACING QS:', QS(J) 
HRITE(15,*) 'HEAT FLUX AT FIN TIP QT:' , QT(J) 
WRITE(15,*) 'PF:',FF(J) 

MRITE(15,*) 'PFI:',FFI(J) 

WRITE(15,*) 'FS:',FS(J) 

WRITE(15,*) 'PSI:',PSI(J) 

MRITE(15,*) 'PHI:',PHI(J) 

WRITE(15,*) 'HV:',HV(J) 

NRITE(15,*) 'RHOG:',RHOG(J) 

WRITE(15,*) 'RHOF:',RHOF(J) 
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CC HRITEdS,*) '1U10:'.RH0(J) 

NRITEdS,*) 'D2:',D2 
imiTE(15,*) 'BETA:'.BETA 
HRITECIS.*) 'SIGMA:'.SIGMA(J) 

NRITEdS.*) 'G:'.G 
WRITEdS.*) 'GT:'.GT(J) 

NRITEdS.*) 'GS:'.GS(J) 

NRITEdS.*) 'Gr:'.Gr(J) 

NRITE(1S.*) 'DE:'.DE 
NRITE(1S.*) 'DR:'.DR 
NRITEdS.*) 'Tr:',TP(J) 

NRITEdS.*) 'TS:'.TS(J) 

NRITEdS.*) 'TT:'.TT(J) 

NRITE(1S.*) 'PIN THICKNESS:'.THICK 
HRITE(1S.*) 'SPACING AT PIN BASE (S):'.SPACES 
NRITEdS,*) 'PIN SPACING AT TIP (B):'.SPACET 
NRITE(1S,*) 'PIN PITCH:'.PITCH 
NRITEdS,*) 'PIN HEIGHT (H):'.N 
NRITEdS,*) 

NRITE(1S,*) 

for surfac* aroa affact 
fl(j)- fs(j) 
f2(j)- ff(j) 

ARP(J)« (R1*SPACET*PHI(J)*(l-Pl(J))+(R2**2-R1**2)*PHI(J) 

* * d-P2(J)) + (PI*R2*THICK))/(PI*R1*(SPACET+THICK)) 

EARP(J)- (R1*SPACET*PHI(J)*(1-Pl(J))*ETA+(R2**2-R1**2)*PHI (J) 

* * d-P2(J))*ETA+(PI*R2*THICK))/(PI*R1*(SPACET+THICK)) 

ATS(J)- (R1*SPACET*(R2**2-R1**2)♦R2*THICK)/ 

* (rl*(spacat4thlck)) 

Atr(j)• (r2**2-(rl+.S*spacat)**2+.S*pi*apacat*(rl+.S*apacat*(1- 

* (2/pi)) )'fr2*thick) / (rl*(Bpacat-«-thick)) 

Ar(j)« ((r2**2-(rl+.S*8pacat)**2)*{phi(j)/pi)+(rl+.5*8pacat* 

* d-(2/pi)) )*.S*8pacat*phi( j)*«’r2*thick) / 

* (rl* (8pac8t 4-thick)) 

EAR(J)- ((R2**2-(R1+.S*SPACET)**2)*(PHI(J)/PI)*ETA+(R1+.5*SPACEr* 

* (1-(2/PI)))*.S*SPACET*PHI(J)*ETA+R2 *THICK*ETA)/ 

* (R1*(SPACET4'THICK)) 

RSA(j)- (At8(j)-Atr(j))/At8(j) 
lEAA(j)- (Ar(j)-Arf(j))/Arf(j) 

NAXENH(j)« IEAA(j)>RSA(j) 

NRITEdS,*) 'PRACTION OP AREA BLANKED ON TOP P1:'.P1(J) 
NRITEdS,*) 'PRACTION OP AREA BLANKED ON PLANKS P2:',P2(J) 
NRITE(1S,*) 'ACTIVE AREA ENHANCEMENT RECTANGTnAR-SECTON 

* PINS ARP:',ARP(J) 

NRITEdS,*) 'ACTIVE AREA ENHANCEMENT PILLET RADIUS ROOT AR:'. 

* AR(J) 

NRITEdS,*) 'RECTANGULAR-SECTION PINS TOTAL SURPACE AREA 

* ENHANCEMENT ATS:'.ATS(J) 

NRITE(1S,*) 'PILLET RADIUS TOTAL SURPACE AREA ENHANCEMENT 

* ATR:',ATR(J) 

NRITE(1S,*) 'REDUCTION IN ENHANCEMENT DUE TO THE LOST OP SURPACE 

* AREA (PROM PILLET ROOT):',RSA(J) 
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C NR1TE(15,*) 'INCREASE IN ENHANCOtENT DUE TO ACTIVE AREA:MEAA(J) 
C NRITE(15,*) 'MAX ENHANCIMENT:'.NAXENH(J) 

C NRITE(15,*) 'ACTIVE SURFACE AREA ENHANCEMENT RATIO (AR/ARF):' 

C • ,AR(J)/ARF(J) 

C HRITEdS,*) 

C NRITE(15,*) 

NRITEdS,*) 'ETA:'.ETA 
NRITEdS,*) 'EQN(34) -',ARF(J) 

NRITE(15,*) 'EQN(43) -'.ARCJ) 

NRITEdS,*) 'EQN(41) •',ATS(J) 

NRITEdS,*) 'EQN(42) •',ATR(J) 

NRITEdS,*) 'EQN(43)/EQN(34) -', (AR(J)/ARF(J)) 

C NRITEdS,*) 'DR-',OR 

C NRITEdS,*) 'SIGMA-', SICMA(J) 

C NRITE(1S,*) 'RHOG:',RHOG(J) 

C NRITEdS,*) 'RHOF:',RHOF(J) 

NRITEdS,*) 'RHO:',RHO(J) 

10 CONTINUE 
C CLOSE(16) 

C5 CONTINUE 

END 





APPIMDZZ O. SZMPLI DZTZ RUMS 


Table II contains the correlation information for the data 
runs contained in this Appendix. All the data runs were 
processed using the Petu]chov*Popov [Ref. 33] inside heat 
transfer correlation. The data have been printed out in the 
short form format. 


( 
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NOTE; PrograR nana *• ORPftLL 

Data takart by • COBB 

Thii analysis dona on file : NTODfl 
This analysis includas and-fin atfact 
Tharwal conductivity ■ 398.8 (W/n.K) 

Inside dianatar, Di • 12.78 inn) 

Outside dianatar. Do ■ 14.38 <nn> 

This analysis uses the OUhRTZ THERflOflETER paadings 

Wodifiati Patukhov-Popov coefficient » 2.5888 

Using HERTEX insert inside tube 

Tube Enhancement ; SMOOTH TUBE 

Tube material ; COPPER 

Pressure condition : ATMOSPHERIC 

Nusselt theory is used for Ho 


Cl (based on Petukhov-Popov) • 

Alpha (based on Nusselt (Tdel)) ■ 


Enhancement <q) 
Enhancement <0el-T> 


Data 

Uw 

Uo 

€ 

(n/5 ) 

<W/m*2-K ) 

1 

4.28 

7.888E+83 


3.75 

7.874E+83 

▼ 

W 

3.23 

7.836E+83 

4 

2.78 

7.784E+83 

5 

2.18 

7.S82E+83 

6 

1 .66 

7.884E+83 

7 

1.14 

6.693E4-83 

8 

1.14 

6.685E+83 

9 

1.66 

7.239E+83 

18 

2.18 

7.4936+83 

11 

2.78 

7.812E+83 

12 

3.22 

7.985E+83 

13 

3.73 

7.9386+83 

14 

4.25 

8.882E+83 


2.8344 

8.8238 

.9E8 

.976 


Ho 

Op 

<W/m'2-K) 

(U/m*21 

9.583E+83 

5.348E+85 

9.773E+83 

5.264E+85 

9.978E+83 

S.158E+85 

1.812E+84 

4.965E+85 

1.8386+84 

4.757E+85 

1.188E+84 

4.815E+85 

1.8966+84 

4.8B7E+85 

1.8976+84 

4.113E+85 

1.864E+84 

4.581E+85 

1.826E+84 

4.693E+85 

1.8286+84 

4.928E+85 

1.817E+84 

5.841E+85 

9.814E+83 

5.828E+85 

9.818E+83 

5.112E+85 


Leest-Spuares Line for Ho vs p curve*. 
Slope * 8.8888E+88 

Intercept • 8.8888E+8C 

Least-squares line for p ■ a*delta-T''b 
e « 2.B96SE+84 

b » 7.5888E-81 


Tcf 

<C> 

55.81 

53.86 
51.69 

49.87 
46.28 
48.53 
37.18 
37.51 
42.31 
45.73 

47.88 
49.55 
51.15 
52.87 


Ts 

<C) 

99.98 

99.91 

188.83 

188.84 

188.84 

188.83 

99.82 

188.82 

99.98 

99.91 

188.81 

99.97 

188.84 

188.81 


NOTE*. 14 data points were stored in file ATODIl 
NOTE: 14 X-Y pairs were stored in data file 
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NOTE: ProgriPi : DRPALL 

Oatk takan by : COBB 

This analytia dona on file : ATStiTHi 
Thia analyaiB includaa and-fin affact 
Tharnal conduclivity « 398.8 (N/n.K) 

Ineida dianatar, 0l * 12.78 <nn) 

Outside dianeter, Oo * 14.38 <nn) 

This anelysis uses the QUARTZ THERflOhETER readings 

fiodified Patukhov'Popov coefficient • 2.5888 

Using HEATEX insert inside tube 

Tuba Enhancenant : SMOOTH TUBE 

Tuba naterial : COPPER 

PrasBura condition : ATIIOSPHERIC 

Nussalt theory is used for Ho 


Cl (based on 

Petukhov-Popov) « 2 

.8493 



Alpha 

(based 

on Nusselt 

(Tdel>> « 8 

.8499 



Enhancenant 

(ql 

» 1 

.888 



Enhancenant 

(Oel-T) 

• 1 

.888 



Data 

Uu 

Uo 

Ho 

Op 

Tcf 

Ts 

« 

(n/s > 

(U/n*2-K) 

(U/n*2-K > 

(W/n"2 > 

(C> 

(C 

1 

4.38 

7.969E-*-83 

9.744E483 

5.E19E+85 

57.67 

99.96 

2 

3.77 

7.928E+83 

9.884E+83 

5.537E+85 

56.81 

99.89 

3 

3.24 

7.858E+83 

1.887E484 

5.459E+85 

54.28 

99.95 

4 

2.72 

7.788E+83 

1.8216+84 

5.338E+85 

52.18 

188.84 

5 

2.19 

7.485E4C3 

1.838E484 

5.128E+85 

49.38 

99.89 

6 

1 .67 

7.128E+83 

1.8586+84 

4.868E+85 

45.96 

188.86 

7 

1.15 

E.E58E483 

1.1165+84 

4.583E+85 

48.35 

188.13 

8 

1.15 

6.677E+83 

1.121E+84 

4.497E+85 

48.13 

99.99 

9 

1 .67 

7.124E+83 

1.855E+84 

4.828E+85 

45.74 

188.81 

18 

2.19 

7.478E483 

1.834E+84 

5.879E+85 

49.13 

188.87 

11 

2.71 

7.7S2E+83 

1.826E+84 

5.269E+85 

51.34 

188.18 

12 

3.24 

7.914E+83 

1.813E+84 

5.398E+85 

53.19 

188.14 

13 

3.76 

7.962E+83 

9.987E+83 

5.383E+85 

54.33 

188.12 

14 

4.28 

8.878E+83 

9.847E+83 

5.442E+85 

55.27 

188.12 


Least-Squares Lina for Ho vs q curve: 
Slope ■ 8.8888E'«-88 

Intercept ■ 8.8888E+86 

Least-squares line for q * e*delta-T''b 
e « 2.7388E+84 

b « 7.5888E-81 


NOTE: 14 data points were stored in file ATSMTHI 
NOTE: 14 X-Y pairs were stored in data file 
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NOTE; Proor«n *• DRPftLL 

Data takan by * CODE 

Thia analytla dona on flla : NTSfiTHS 
This analysis includas and^fm affact 
Tharnal conductivity • 390.8 <y/n.K) 

Ins Ida dianatar, Oi • 12.70 <nn> 

Outsida dianatar. Do • 14.38 <nn) 

This analysis uses the QUARTZ THERfiONETER raadings 

Nodifiad Patukhov-Popov coafficiant • 2.5000 

Using HEATEX insert insida tube 

Tube Enhancanant ; SMOOTH TUBE 

Tuba natarial • COPPER 

Prassura condition ; ATMOSPHERIC 

Nusselt theory is used for Ho 


Cl <based on 
Alpha (based 
Enhancanant 
Enhancanant 

Patukhov-Popov) • 2. 

on Nusselt <Tdel)> • 0. 

<q) ■ 1 • 

(Del-T) * 1- 

7549 

8561 

010 

007 



Data 

Uu 

Uo 

Ho 

Qp 

Tcf 

Ts 

t 

<n/s) 

<U/n*2-K ) 

(U/n-Z-K > 

(W/n*2) 

<C> 

<c: 

1 

4.30 

7.8826+03 

9.681E+03 

5.S83E+05 

57.67 

100.05 

2 

3.77 

7.912E+03 

9.944E+03 

5.542E+05 

55.74 

100.13 

3 

3.24 

7.886E+03 

1.O2OE+04 

5.473E+05 

53.63 

99.95 

4 

2.72 

7.716E+03 

1.032E+04 

5.290E+05 

51.25 

99.96 

5 

2.19 

7.48OE+03 

1.049E+04 

5.117E+05 

48.77 

100.12 

6 

1.67 

7.1S3E+03 

1.O79E+04 

4.8E9E+05 

45.14 

100.14 

7 

1.15 

6.B31E+03 

1.132E+04 

4.472E+05 

39.51 

100.01 

8 

1.15 

6.602E+03 

1.124E+04 

4.454E+05 

39.64 

100.03 

9 

1 .67 

7.120E+03 

1.071E+04 

4.844E+05 

45.21 

100.05 

10 

2.19 

7.520E+03 

1.O56E+04 

5.129E+05 

48.55 

100.14 

11 

2.72 

7.766E+03 

1.040E+04 

5.298E+05 

50.93 

99.95 

12 

3.24 

7.936E+03 

1.026E+04 

5.412E+05 

52.73 

99.88 

15 

3.76 

8.015E+03 

1.007E+04 

5.449E+05 

54.10 

100.08 

14 4.28 8.0S9E+03 g.904E*03 

Laast-Squares Lina for Ho vs q curve 
Slope • O.OOOOE+00 

Intercept • O.OOOOE+00 

Laast'squares line for q * a*dalta-T 

5.48OE+05 

*b 

55.33 

100.13 


a « 2.7624E+04 

b « 7.500OE-O1 


NOTE: 14 data points were stored in file ATSMTHS 
NOTE: 14 X-Y pairs ware stored in data file 
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NOTE: ProQ^Nw n««e : ORPALL 

Data tak.an by : COBB 

Tbia analyaii dona on file : UTSNTHi 
This analysis includas and*fin affacl 
Ttiarnal conductivity • 39B.8 (W/n.K> 

InsIda dianitar, 0i • 12.7B <nn) 

Outsida dianatar, Oo * U.3B <nn) 

This analysis usas tha QUARTZ THERflOtlETER raadings 

nodifiad Patukhov-Popov coafficiant * 2.500B 

Using HEATEX insert inside tube 

Tuba Enhancenent : SHOOTH TUBE 

Tuba natarial : COPPER 

Pressure condition : UACUUN 

Nussalt theory is used for Ho 


Cl (based on 

Petukhov-Popov > ■ 2 

.6957 



Alpha 

(based 

on Nussalt 

(Tdel>) » 8 

.8127 



Enhanccnent 

(q> 

« 1 

.884 



Enhancenent 

(Oel-T) 

« 1 

.883 



Data 

Uw 

Uo 

Ho 

Op 

Tcf 

Ts 

s 

(n/s > 

(W/n‘2-K) 

(U/n*2-K ) 

(W/n*2 > 

(C) 

(C 

1 

4.31 

8.71SE+83 

1.1876*84 

1.8696*85 

16.89 

48.68 

2 

1 .IS 

6.985E-«'83 

1.2976*84 

1.4296*85 

11.82 

48.57 

3 

3.78 

8.S76E+83 

1.1156*84 

1.8386*85 

16.41 

48.56 

4 

1.68 

7.584E+83 

1.1976*84 

1.5676+85 

13.89 

48.68 

r 

3.25 

8.583E-^83 

1.1436*84 

1.8176*85 

15.98 

48.65 

6 

2.28 

7.9716*83 

1.1766*84 

1.6716*85 

14.21 

48.58 

7 

2.73 

8.3866*83 

1.1636*84 

1.7596*85 

15.13 

48.56 

8 

2.73 

8.3486*83 

1.1716*84 

1.7616*85 

15.84 

48.52 

S 

2.28 

7.9326*83 

1.1686*84 

1.6846*85 

14.42 

48.78 

18 

3.25 

8.5156*83 

1.1456*84 

1.8316*85 

15.99 

48.78 

11 

1.68 

7.4366*83 

1.1886*84 

1.5676*85 

13.28 

48.81 

12 

3.78 

8.6156*83 

1.1216*84 

1.8486*85 

16.48 

48.54 

13 

4.31 

8.6786*83 

1.1886*84 

1.8776*85 

17.87 

48.78 

14 

1.15 

6.7656*83 

1.2266*84 

1.4386*85 

11.73 

48.95 


Least-Spuaras Lina for Ho vs q curve: 
Slope > B.OBBBE-t-OB 
Intercept > B.BOBBE^BO 

Least-squares line for q » a*dalta-T"b 
a « 2.2763E4B4 
b « 7.S8BBE-B1 


NOTE: 14 data points ware stored in file UTSNTHI 
NOTE: 14 X-Y pairs ware stored in data file 
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NOTE: ProorM nant : ORPALL 

Data takan by : COBB 

Thii analyaik dona on fila : OTSf1TH3 
Thia analysis includas and-fin afract 
Tharnal conductivity • 39B.8 <U/n.K) 

Inslda dianatar, Oi * 12.7B <nn) 

OutSIda dianatar. Do ■ 14.38 <nn) 

This analysis usas tha QUARTZ THERtlOHETER raadinQS 

nodlflad Patukhov-Popov coafficiant ^ 2 .SBB 8 

UsinQ HEATEX insart inslda tuba 

Tuba Enhancanant : StiOOTH TUBE 

Tuba natarial : COPPER 

Prassura condition : UACUUI1 

Nussalt thaopy is usad for Ho 


Cl (based on 

Petukhov-Popov) ■ 2 

.8599 



Alpha 

(based 

on Nussalt 

(Tdal)) « 0 

.7971 



Enhancanant 

(q) 

m 

.979 



Enhancanant 

(Oal-T) 

m 

.984 



Data 

Uu 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

(n/B) 

(U/n*2-K) 

(U/n*2-K) 

(«/n*2 ) 

(C) 

(C 

1 

4.32 

8.4116-^03 

1.049Et04 

1.981 Em 

18.88 

48.43 

2 

1.16 

6.659E+03 

1.1S7E+04 

1.540Em 

13.31 

48.89 

3 

3.79 

8.316E+03 

1.061 Em 

1.9E9Em 

18.56 

48.36 

4 

1.68 

7.263E+03 

1.116e+04 

1.71SE+0S 

15.37 

48.70 

S 

3.27 

8.144E-*-03 

1.068Em 

1.979E+05 

18.53 

48.86 

6 

2.21 

7.669E<^03 

1.096Em 

1.845Em 

16.83 

48.81 

7 

2.74 

7.931E+03 

1.078E+04 

1.920Em 

17.82 

48.86 

8 

2.74 

7.97SE+03 

1.08EEm 

l.938Em 

17.85 

48.98 

S 

2.21 

7.657E+03 

1.093E+04 

1.841E-«-05 

16.84 

48.86 

10 

3.27 

8.136E4-03 

1.067E+04 

1.976E+05 

18.53 

48.88 

11 

1.68 

7.311E+03 

1 .l28Em 

1.733E+05 

15.37 

48.77 

12 

3.80 

8.l96E<f03 

1 .043E4>04 

2.017E+05 

19.34 

48.80 

13 

1.16 

6.734E+03 

1.188E<^04 

1 .E29Em 

13.72 

48.85 

14 

4.33 

8.237E+03 

1.024Em 

2.0386405 

19.91 

48.80 


Laast-Squaras Lina for Ho vs q curve: 
Slope ■ C.O0O(BE-«-B8 
Intercept • B.BBBBE't’OO 

Least-squares line for q « a*delta-T‘'b 
a « 2.2l32E>e4 

b « 7.5BBBE-B1 


NOTE: 14 data points uara stored in file UTSI1TH3 
NOTE: 14 X-Y pairs uara stored in data file 
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NOTE: Proor»R ; ORPftLL 

O&ta taktri by : COBB 

TMs •ntlydft done on file : ATBII 
This enelysis includes end^fin effect 
Thernel conductivity ■ BBB.B <«/n.K) 

Inside dieneter, Ol • 12.7B (nn> 

Outside dieneter, Oo « 13.88 (nn) 

This enelysis uses the QUARTZ THERtlOHETER reedinos 

flodified Petukhov-Popov coefficient > 2.5BB8 

Usino HEATEX insert inside tube 

Tube Enhencenent : RECTANGULAR FINNED TUBE 

Tube neteriel : COPPER 

Pressure condition : ATMOSPHERIC 

Nusselt theory is used for Ho 


Cl (based on 

Petukhov-Popov) • 3 

.0632 



Alpha 

(based 

on Nusselt 

(Tdel)) « 2 

.0960 



Enhencenent 

<q> 

« 3 

.331 



Enhencenent 

(Oel-T) 

• 2 

.466 



Data 

Uw 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

(n/s) 

(W/n*2-K) 

(W/n*2*K) 

(U/n‘2 > 

(C) 

(C 

1 

0.63 

8.653E>03 

3.33264-04 

5.8436-405 

17.25 

99.90 

2 

1.15 

1 .123E4-04 

2.83364-04 

7.7006-405 

26.62 

99.86 

3 

1.68 

1.303E+04 

2.78564-04 

8.94SE-405 

32.12 

99.82 

4 

2.20 

1 .44164-04 

2.75364-04 

3.8316-405 

35.33 

93.93 

5 

2.72 

1.S43E+04 

2.71364-04 

1.0536-406 

38.33 

100.03 

6 

3.24 

1.634E4-04 

2.72264-04 

1.1156-406 

40.37 

99.90 

7 

3.23 

1 .53364-04 

2.4356-404 

1.0026-406 

41.14 

99.98 

8 

3.75 

1.78 IE-404 

2.87264-04 

1.1616-406 

40.41 

100.10 

3 

4.27 

1.840E4-04 

2.8556-404 

1.1346-406 

41.83 

99.80 

10 

4.73 

1 .88864-04 

2.8356-404 

1.2286-406 

43.32 

100.02 

11 

4.73 

1 .83364-04 

2.8476-404 

1.2346-406 

43.34 

100.17 

12 

4.27 

1.845E4-04 

2.8636-404 

1.1356-406 

41 .74 

100.01 

13 

3.75 

1.78864-04 

2.8826-404 

1.1586-406 

40.18 

100.27 

14 

3.23 

1.730E4-04 

2.3426-404 

1.1146-406 

37.86 

99.97 

15 

2.71 

1 .62864-04 

2.3256-404 

1.04364-06 

35.88 

99.96 

16 

2.13 

1.511E4-04 

2.3336-404 

3.7336-405 

33.21 

100.03 

17 

1 .67 

1.38164-04 

3.0566-404 

8.3536-405 

23.30 

99.99 

18 

1 .15 

1.20864-04 

3.3326-404 

7.7646-405 

23.30 

39.94 

13 

0.62 

3.54664-03 

4.6686-404 

6.0626-405 

12.93 

100.15 

Least- 

squares line for q 

» a^delta-T’ 

■b 




6 » 7.0330E+04 

b * 7.5000E-01 


NOTE: 13 data points were stored in file AT011 
NOTE: 13 X-Y pairs were stored in data file 
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NOTE: ProQf'*" name : DRPALL 

Data lakart by : COBB 

Thi* analyili dona on file : ATB13 
This analysis includes and-fm effect 
Thermal conductivity ■ 39®.8 tU/m.K> 

Inside diameter, Oi • 12.7® (mm) 

Outside diameter. Do ■ 13.88 (mm) 

This analysis uses the OUftRTZ THERMOMETER readinQS 

Modified Petukhov-Popov coefficient * 2.5®®® 

Usino HEMTEX insert inside tube 

Tube Enhancement : RECTMN6ULMR FINNED TUBE 

Tube material : COPPER 

Pressure condition : ATMOSPHERIC 

Nusselt theory is used for Ho 


Cl (based on 

Petukhov-Popov > » 3 

.1E1E 



Alpha 

(based 

on Nusselt < 

TdeD) • 2. 

.2757 



Enhancement 

(q) 

* 3 

.718 



Enhancement 

(Oel-T) 

« 2 

.677 



Data 

Uu 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

(m/s) 

(U/m*2-K) 

(U/m*2-K) 

(U/m*2) 

(C) 

(C 

1 

3.74 

1.863E+84 

3.888E+84 

1.168E+8E 

38. E7 

188.87 

2 

4.25 

1.926E+84 

2.987E+84 

1.195E+8E 

48.81 

99.86 

3 

3.22 

1.784E+84 

3.882E+84 

1.184E+8E 

36.78 

188.85 

4 

2.7® 

1.731E+84 

3.151E+84 

1.875E+CE 

34.1® 

108.04 

5 

2.18 

1.586E-t-84 

3.897E+84 

9.897E+85 

31.9E 

99.89 

E 

1 .EE 

1.S99E+84 

4.877E+84 

1.885E+8E 

24.65 

99.97 

7 

1.14 

1.318E+84 

3.987E+84 

8.263E+85 

21.15 

188.16 

8 

1.15 

1.224E+84 

3.278E+84 

7.864E+85 

23.99 

188.81 

8 

1 .57 

1.439E+84 

3.224E+84 

9.312E+85 

28.89 

188.85 

18 

2.19 

1.544E+84 

3.3E7E+84 

1.858E+8E 

31.43 

188.86 

11 

2.78 

1.718E+84 

3.134E+84 

1.8925+85 

34.85 

99.97 

12 

3.22 

1.814E+84 

3.112E+84 

1.155E+8E 

37.1® 

188.86 

13 

3.74 

1.982E+84 

3.119E+84 

1.285E+8E 

38.63 

99.88 

14 

4.2E 

1.gS5E+84 

3.864E+84 

1.225E+8E 

39.97 

99.86 

Least- 

-squares line for q 

» a*deltO“T 

*b 



a » 

7.722 

95+84 





b * 

7.58885-«1 





MOTE: 

14 data points were stored in 

file AT813 



NOTE: 

14 X-> 

' pairs were 

stored m data file 
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NOTE; Proo'"*" 

Oalt t«Ker> by • COBB 

This »n6lysis done on file : hT«2l 
This analysis includes and-fin effect 
Thermal conductivity • 39B.8 (W/n.K) 

Inside dianetar, Di ■ 12.70 (nn) 

Outside dianeter , Do ■ 14.38 inn> 

This analysis uses the QUARTZ THERNOHETER readinQS 

fiodifiad Petukhov-Popov coefficient ■ 2.5000 

Usmo HEATEX insert inside tuba 

Tube Enhancement ; SHALLOW FILLET FINNED TUBE 

Tube material *• COPPER 

Pressure condition ; ATMOSPHERIC 

Nusselt theory is used for Ho 


Cl (based on Petukhov-Popov> ■ 3.2217 
Alpha (based on Nusselt (TdelU • 1.48SB 
Enhancenent (q) 


Enhancement 


eta 

Uu 

t 

(m/s) 

1 

0.B3 

2 

1.15 

3 

1 .B7 

4 

2.20 

5 

2.72 

B 

3.24 

7 

3.76 

8 

4.27 

9 

4.53 

10 

4.53 

11 

4.26 

12 

3.74 

13 

3.22 

14 

2.70 

15 

2.18 

IB 

1 .66 

17 

1.14 

18 

0.62 


(Del-T) 

Uo 

(U/m*2-K) 
7.581E+03 
9.183E+03 
1 .OElErOA 
1.139E+0< 

1.22SE+04 
1.271E+04 
1.330E+04 
1 .351E+04 
1.364E+04 
1.368E+04 
1.356E+04 
1.333E+04 
1.312E+04 
1 .2S3E+04 
1.199E+04 
1.243E+04 
1.019E+04 
8.711E+03 


Ho 

(U/m*2-K 
2.151E+04 
1.839E+04 
1.875E+04 
1.835E+04 
1.873E+e4 
1.8S3E+04 
1.881E+04 
1.848E+04 
1.841E+04 
1.848E+04 
1 .85OE+04 
1.871E+04 
1.916Ef04 
1.9O5E+04 
1.944E+04 
2.415E+04 
2.J61E+04 
r.958E+04 


1.748 

Qp 

) (W/m*2) 

5.e8eE4'e5 
6.298E+05 
7.227E+05 
7.762E+05 
8.302E+05 
8.587E+05 
8.890Ei-e5 
8.942E+05 
8.921E+05 
8.899E+05 
8.755E+05 
8.487E+05 
8.279E+0E 
7.864E+05 
7.472E+05 
7.B69E+05 
6.269E+05 
5.20BE+O5 


Least-squares line for q » a*deltd~T''b 
B * 4.9231E+04 

b » 7.5000E-01 


Tcf 

Ts 

(C) 

(c: 

23.62 

99.80 

34.25 

99.90 

38.54 

99.74 

42.29 

99.81 

44.32 

99.92 

46.34 

99.97 

47.27 

100.01 

48.39 

100.12 

48.45 

100.07 

48.17 

99.95 

47.32 

100.08 

45.37 

99.98 

43.22 

99.83 

41.28 

100.06 

38.44 

100.03 

31 .75 

100.U 

29.01 

100.05 

17.60 

100.12 


NOTE; 18 data points were stored in file AT021 
NOTE: 18 X-Y pairs were stored in data file 
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NOTE: Prooraw na«e : DRPALL 

Data tak.eri by *• COBB 

This analyaia dona ort file : AT02Z 
This analyeie includes end-fin effect 
Thermal conductivity » 390.8 <U/m.K) 

Inside diameter, Di ■ 12.70 (mm) 

Outside diameter, Oo « 14.38 (mm) 

This analysis uses the QUARTZ THERflOhETER readinQs 

Modified Petukhov-Popov coefficient * 2.5000 

Using HEATEX insert inside tube 

Tube Enhancement : SHALLOW FILLET FINNED TUBE 

Tube material : COPPER 

Pressure condition : ATMOSPHERIC 

Nusselt theory is used for Ho 

Cl (based on Petukhov-Popov ) « 2.94E1 


Alpha 

(based 

on Nusselt 

(Tdel)) « 1 

.5213 



Enhancement 

(Q ) 

- 2 

.173 



Enhancement 

(Oel-T) 

« 1 

.790 



Data 

Uu 

Uo 

Ho 

Qp 

Tcf 

Ts 

t 

(m/s) 

(U/m'Z-K ) 

(U/m*2-K ) 

(W/m*2) 

(C> 

(C) 

1 

4.28 

1.287E+04 

1 .787E+04 

8.699E+05 

48.67 

99.86 

2 

3.74 

I.296E+04 

1.864E+04 

8.401E+05 

45.08 

100.21 

3 

3.22 

1.300E^04 

1 .960E+04 

8.138E+05 

41.52 

100.11 

4 

2.69 

1.275E+04 

2.035E+04 

7.749E+05 

38.08 

99.78 

5 

2.17 

1.216E+04 

2.073E+04 

7.214E+05 

34.79 

100.13 

6 

1 .65 

1 . l36E-t-04 

2.1396+04 

6.516E+05 

30.47 

100.09 

7 

1.13 

1 .O08E-^04 

2.228E+04 

5.659E+05 

25.40 

100.18 

8 

1.14 

9.931E+03 

2.301E+04 

6.357E+05 

27.62 

100.02 

9 

1 .66 

1.139E+04 

2.227E+04 

7.205E+05 

32.36 

99.82 

10 

2.18 

1.228E+04 

2.126E+04 

7.553E+05 

35.53 

100.25 

11 

2.69 

1.307E+04 

2.102E+04 

7.748E+05 

36.85 

100.00 

12 

3.19 

1.377E+04 

2.106E+C4 

7.87SE+85 

37.40 

99.86 

13 

3.70 

1.424E+04 

2.083E+04 

7.889E+05 

37.86 

100.04 

14 

4.20 

1.458E+04 

2.055E+04 

7.683E+05 

37.38 

100.15 


Least-squares line for q « B*deitB-T''b 
a * 5.0729E+04 

b « 7.5000E-01 


NOTE*. 14 data points were stored in file AT023 
NOTE: 14 X-Y pairs were stored in data file 
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NOTE: ProO''**'! name : DftPALL 

Data takan by : COBB 

TMa analyais dona on file : ATB31 
This analysis includes and-fin affect 
Tharnal conductivity • SBB.B (U/n.K) 

InsIda dianatar, 0i * I2.7B (nn) 

Outsida dianatar, Do « 13.88 (nn) 

This analysis uses the QUARTZ THERnONETER raadinos 

nodifiad PatukhovPopov coefficient > 2.5880 

UsinQ HEATEX insert inside tuba 

Tuba Enhancanant : DEEP FILLET FINNED TUBE 

Tube natarial ; COPPER 

Pressure condition : ATMOSPHERIC 

Nussalt theory is used for Ho 

Cl (based on Petukhov-Popov) * 3.8158 


Alpha 

(based 

1 on Nussalt 

(Tdel)) « 1 

.8948 



Enhancanant 

(q) 

■ 2 

.912 



Enhancanant 

(Oel-T) 

* 2 

.229 



Data 

Uu 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

(n/s) 

(U/n*2-K) 

(«/n*2-K) 

(W/n*2 > 

(C> 

(C) 

1 

8.63 

8.419E'^83 

3.288E-t-84 

5.734E-^85 

17.92 

188.87 

2 

1.15 

1.894E<^84 

2.798E■^84 

7.614E-*-85 

27.28 

108.28 

3 

1.68 

1.2S8E+84 

2.S98E-»-84 

8.543E-t-85 

32.99 

99.74 

4 

2.28 

1.37SE+84 

2.5485-^84 

9.48IE-«'8S 

36.89 

99.95 

S 

2.72 

1.4666-^84 

2.5845^84 

9.91454-05 

39.68 

99.93 

s 

3.24 

1.5456-^84 

2.494E■^84 

1.83854-86 

41.63 

99.81 

7 

3.76 

1.6806-^84 

2.459E-^84 

1.06854-86 

43.42 

188.22 

8 

4.27 

1.655E-f84 

2.454E-^84 

1.89264-86 

44.58 

188.29 

9 

4.79 

1.694E+84 

2.437E+84 

1.10564-86 

45.35 

99.98 

18 

4.78 

1 .787E-*-84 

2.456E-^84 

1.89654-86 

44.61 

99.89 

11 

4.26 

1.698E-t-e4 

2.5185-^84 

1.87554-86 

42.69 

99.76 

12 

3.74 

1 .641E-*-84 

2.528E-»'e4 

1.84864-86 

41.14 

108.13 

13 

3.22 

1.588E+84 

2.SS9E-^84 

9.96864-85 

38.92 

99.93 

14 

2.78 

1 .S17E-»-84 

2.5986-^84 

9.479E4-85 

36.68 

99.98 

IS 

2.18 

1.423E+04 

2.62tE-^84 

8.895E4-05 

33.94 

188.21 

16 

1.66 

1 .3816-^84 

2.6826-^84 

8.10864-85 

38.23 

188.18 

17 

1.14 

1.127E•^84 

2.779E-^84 

6.98764-85 

25.14 

99.94 

18 

8.62 

9.883E-*-83 

3.68864-84 

5.49864-05 

15.25 

99.86 


Least-squares line for q ■ e*delta-T''b 
a * E.382BE<«-e< 

b * 7.5880E-01 


NOTE: 18 data points ware stored in file AT83I 
NOTE: 18 X-Y pairs were stored in data file 
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NOTE; Proyr*« riane ; DRPftLL 

Data takan by : COBB 

Thia analyiiB dona on fila : ATB33 
This analyaiB includaB and*fin affact 
Tharnal conductivity « 39B.8 <U/n.K) 

InsIda dianatar, Di ■ 12.7B (nn) 

OutBlda dianatar. Do • 13.88 <nn) 

ThiB analyBiB uaas tha QUARTZ THERNONETER raadinQB 

flodlfiad Patukbov-Popov coafficiant * 2.5888 

UBinc HEATEX insart inBlda tuba 

Tuba Enhancanant : DEEP FILLET FINNED TUBE 

Tuba natarial ; COPPER 

PraBBura condition : ATMOSPHERIC 

NuBBalt theory ib uBad for Ho 


Cl <based on 

Patukhov-Popov) * 3 

.8215 


Alpha 

Ibasad 

on Nussalt 

(Tdell) « 1 

.8888 


Enhancanant 

<q) 

« 2 

.721 


Enhancanent 

<0el-T) 

« 2 

.119 


Data 

Uu 

Uo 

Ho 

Op 

Tcf 

t 

(n/s > 

(W/n'Z-K) 

<U/n*2-K ) 

(W/n'‘2) 

<C> 

1 

4.27 

1.575E+84 

2.278E■^84 

1.822E+85 

44.85 

2 

3.75 

1.539E+84 

2.383E<^84 

9.9B9E+85 

43.29 

3 

3.23 

1.5885-^84 

2.378E+84 

9.598E<«>85 

48.92 

4 

2.71 

1.442E+84 

2.399E<^84 

9 333E+85 

38.98 

5 

2.19 

1.349E-^84 

2.411E+84 

8.78BEt'85 

35.44 

5 

1 .57 

1.251E4-84 

2.5E3E-I-84 

8.217E+85 

32.85 

7 

1.15 

1.112E+84 

2.752E+84 

7.197E+85 

25.15 

8 

1.15 

1.185E-»-84 

2.743E+84 

7.295E+85 

25.59 

9 

1.57 

1 .255E<)'84 

2.5E7E+84 

8.3285^85 

32.41 

18 

2.19 

1.3475-^84 

2.423E+84 

8.955E4-85 

37.88 

11 

2.71 

1.435E+84 

2.399E-t-84 

9.5B5E-t-8S 

39.87 

12 

3.23 

1.581Ei-84 

2.371E+84 

9.949E<^85 

41.95 

13 

3.75 

1.5E3E'^84 

2.3E4E+84 

1.825E+85 

43.48 

14 

4.27 

1.59EEt-84 

2.322E+84 

1.839E+85 

44.75 

Least- 

■squares line for q 

■ a*delto-T‘ 

'b 



a * E.8352E-«-84 
b * 7.5888E-81 


NOTE: U data pointB ware stored in file AT033 
NOTE: 14 X-Y pairs were stored in data file 


Ts 

<C> 

99.88 

188.88 

99.88 

99.98 

188.88 

188.85 

99.97 

188.18 

99.59 

188.88 

188.85 

99.85 

188.82 

99.82 
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NOTE: Progran nanc : ORPALL 

Data takan by : COBB 

Thia analyiik dona on fila : AT661 
This analyaia includai and~fin affact 
Tharnal conductivity * S5.3 (U/n.K) 

Inaida dianatar, Oi ■ 12.7C <nn) 

Outaida dianatar. Do ■ 13.B8 (nn> 

Thia analyaia uaaa tha QUARTZ THERNOMETER raadinga 

nodiflad PatukhovPopov coafficiant * 2.SB0S 

Uaing HEATEX inaart inaida tuba 

Tuba Enhancanant : RECTANGULAR FINNED TUBE 

Tuba notarial : 90/IB CU/NI 

Praaaura condition : ATHOSPHERIC 

Nuaaalt theory ia uaad for Ho 


Ci (baaad on 

Patukhov-Popov) ■ 2 

.7938 


Alpha 

(baaad 

on Nuaaalt 

(Tdal)) * 1 

.3004 


Enhancanant 

<Q) 

■ 1 

.763 


Enhancanant 

(Dal-T) 

« 1 

.530 


Data 

Uw 

Uo 

Ho 

Qp 

Tcf 

t 

(n/a) 

<U/n*2-K) 

(U/n*2-K > 

(U/n*2) 

(C> 

1 

0.63 

6.424E4-03 

2.2405-^04 

4.4555-^05 

19.89 

2 

1.15 

7.797E+03 

1.81 IE-^04 

5.480E-*-05 

30.26 

3 

1.68 

8.8005-^03 

1.749E-f04 

6.l33E-»-05 

35.06 

4 

2.20 

9.495E-«-03 

1.725E-^04 

6.615E-I-05 

38.35 

5 

2.72 

1.005E-^04 

1.715E-I-04 

6.8865-^05 

40.15 

6 

3.23 

1.047E-*-04 

1.703E-^04 

6.9965-^05 

41.08 

7 

3.75 

1.036E+04 

1.737E+04 

7.222E+05 

41.57 

8 

4.27 

1.113E+04 

1.710E-»04 

7.337E-^05 

42.91 

9 

4.79 

1.124E-»-04 

1.6815-^04 

7.40654-05 

44.05 

10 

4.79 

1.1255-^04 

1.6845-^04 

7.4285+05 

44.11 

11 

4.27 

1.1O6E-t-04 

1.6915-^04 

7.27GE+05 

43.02 

12 

3.75 

1.0945-^04 

1.729E-^04 

7.152E+05 

41.37 

13 

3.23 

1.070E-*-04 

1.754E-^04 

6.962E+05 

39.69 

14 

2.71 

1.0305^04 

1.7e6E-^04 

6.709E+05 

37.98 

15 

2.19 

9.747E-^03 

1.772E-*-04 

E.365E+05 

35.93 

16 

1.67 

9.042E-i'03 

1.796E->04 

5.9005+05 

32.86 

17 

1.15 

8.043E-*-03 

1 .863E-»^04 

5.2575+05 

28.27 

18 

0.62 

6.527E-*-03 

2.187E-^04 

4.215E+05 

19.28 


Laaat-aouaras Una for q « a^dalta-T'b 
a « 4.367JE+04 

b « 7.50OOE-O1 


Ta 

(C> 

100.03 

93.73 

99.80 

99.96 

99.82 

100.06 

99.80 

99.80 

99.81 

100.00 

99.99 

99.88 
99.84 
99.80 
99.95 

99.92 

93.93 

93.89 
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NOTE: ProgrAn nane : DRPALL 

Data takan by : COBB 

This analyaiB dona on fila : ATB63 
This analysis includas and-fin affacl 
Tharnai conductivity • SB.3 <U/n.K> 

Inslda dianatar, Ol • t2.7B (nn> 

Outside dianatar. Do * 13.B8 (pm) 

This analysis uses the QUARTZ THERAOnETER raadinQs 

Modified Patukhov-Popov coefficient » 2.5BBB 

UsinQ HEATEX Insert inside tube 

Tuba Enhancenent : RECTANGULAR FINNED TUBE 

Tuba naterial : 9B/tB CU/NI 

Pressure condition : ATNOSPHERIC 

Nusselt theory is used for Ho 


Cl (based on 

Patukhov-Popov) • 2 

.5534 


Alpha 

(based 

on Nusselt 

(Tdal)) • 1 

.2925 


Enhancenent 

(Q) 

« 1 

.749 


Enhancenent 

(Dal-T) 

» 1 

.521 


Data 

Uu 

Uo 

Ho 

Op 

Tcf 

t 

(n/5) 

(U/n'‘2-K) 

(U/n'‘2-K) 

<«/n'‘2 > 

(C) 

s 

1 

4.29 

1.B67E4B4 

1.67BE+B4 

7.452E+B5 

44.62 


3.77 

1.B47E^B4 

1.692E+B4 

7.313E+B5 

43.22 

3 

3.24 

1.B21E+B4 

1.716E+B4 

7.B84E4^B5 

41.28 

4 

2.72 

9.886E<»-B3 

1.7S4E+B4 

6.835E<«-B5 

38.97 

5 

2.2B 

9.33BE^B3 

1.76BE'»-B4 

6.413E<»-B5 

36.43 

6 

1.67 

8.658E<»-B3 

1.8B3E-»-B4 

5.9B2E<^B5 

32.73 

7 

1.15 

7.818E+B3 

1.971E+B4 

5.289Et-BS 

26.84 

8 

1.15 

7.811E+B3 

1.972E+84 

5.297E+B5 

26.85 

9 

1.67 

8.627E+B3 

1.792E+B4 

S.9B8E4-B5 

32.96 

IB 

2.2B 

9.282E<*-B3 

1.743E+B4 

6.368E<«-B5 

36.54 

11 

2.72 

9.79SE+B3 

1.723E+B4 

6.74BE+B5 

39.12 

12 

3.24 

1 .B16E4-B4 

1.699E-^B4 

B.977E+B5 

41 .B6 

13 

3.76 

1 .B34E'«-B4 

1.553E'^B4 

7.B99E+B5 

42.94 

14 

4.28 

1.B57E+B4 

1.E41E4B4 

7.249E+B5 

44.18 


Laast-sQuares Una for q « a*dalta-T“b 
a * 4.331EE-t-e4 

b « 7.SOBBE-BJ 


NOTE: K data points were stored in file ATBE3 
NOTE: 14 X-Y pairs were stored in data file 


Ta 

<C) 

99.87 
lee.ie 
IBB.03 
IBB.Bl 
1BB.B8 

99.94 

99.93 

99.95 
IBB.BZ 

99.98 

IBB.BS 

99.95 

99.94 
IBB.Bl 
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NOTE: ProQran nane : ORPALL 

Data takart by : COBB 

This analysis dona on fila : ATB7I 
This analysis includas and-fin effect 
Tharnal conductivity • t4.3 <U/k.K) 

Inside diameter , Oi * 12.70 <mm) 

Outside diameter, Oo * 13.88 <mm> 

This analysis usee the QUARTZ THERtlOMETER raadinQS 

Modified Petukhov-Popov coefficient « 2.5000 

UsinQ HEATEX insert inside tube 

Tube Enhancement : DEEP FILLET FINNED TUBE 

Tube material : STAINLESS-STEEL 

Pressure condition : ATMOSPHERIC 

Nusselt theory is used for Ho 


Cl <based on 

Petukhov-Popov) * 2 

.2578 



Alpha 

<based 

on Nusselt 

<Tdel)) • 1 

.0063 



Enhancement 

<Q> 

• 1 

.252 



Enhancement 

tOel-T) 

* 1 

.184 



Data 

Uw 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

<m/s) 

<U/m*2-K) 

<U/m'2-K) 

(U/m*2) 

<C> 

<C> 

1 

4.31 

6.Sl5E-^03 

1.332E-^04 

4.gg5E-t-05 

37.51 

100.02 

2 

3.78 

6.849E^03 

1.362E-*04 

4.945E-»-05 

36.31 

100.02 

3 

3.25 

6.786E+03 

1 .411E-*04 

4.887E-t-05 

34.64 

99.98 

4 

2.73 

6.547E+03 

1.407E-*-04 

4.6986*05 

33.38 

93.95 

5 

2.20 

6.344E-«-03 

1 .459E-*04 

4.536E*05 

31.10 

100.00 

6 

1.68 

5.950E’t-03 

1 .483E-»’04 

4.254E*05 

28.68 

100.09 

7 

1.15 

5.377E+03 

1.542E-*04 

3.8166*05 

24.75 

100.01 

8 

1.15 

5.3856-^03 

1.550E-*04 

3.8276*05 

24.68 

100.03 

9 

1.68 

5.9626-^03 

1.4S2E-t-04 

4.2E7E+05 

28.60 

100.06 

10 

2.20 

6.370E-»-03 

1 .475E-»-04 

4.573E+05 

31.00 

100.01 

11 

2.73 

6.587E-^03 

1.427E-*04 

4.739E+05 

33.21 

99.97 

12 

3.25 

6.8526-^03 

1.433E-«-04 

4.S32E*05 

34.27 

100.01 

13 

3.78 

6.9186*03 

1.389E-V04 

4.9916*05 

35.93 

100.08 

14 

4.30 

6.991E-*03 

1 .359E-*-04 

5.0266*05 

36.98 

100.04 

Least- 

SQuares line for q 

* a*delta-T' 

'b 




a * 3.4U5E+B4 

b * 7.5000E-01 


NOTE: 14 data points were stored in file AT07I 
NOTE: 14 X-Y pairs were stored in data file 
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NOTE: ProQran n«ne : DRPALL 

Oat* taken by : COBB 

This analyaia dona on file : PTB81 
This analyaia includaa and-fin affect 
Tharnal conductivity • 14.3 <U/n.K) 

Inside diameter, Oi ■ 12.70 tnn) 

Outside dianeter. Do ■ 14.38 <ne> 

This analysis uses the QUARTZ THERMOMETER readings 

Modified PetukhovPopov coefficient * 2.5000 

Using HEATEX insert inside tube 

Tube Enhancement : SHALLOW FILLET FINNED TUBE 

Tube material : STAINLESS-STEEL 

Prassure condition : ATMOSPHERIC 

Nusselt theory is used for Ho 


Cl (based on 

Petukhov-Popov > • 2 

.3435 



Alpha 

(based 

on Nusselt 

(Tdel)) « 0 

.3812 



Enhancement 

(q) 

* 1 

.211 



Eiiiiaiiwwnent 

(Oel-T> 

* 1 

• 

oi 



Data 

Uu 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

(m/s) 

(W/m*2-K) 

(U/m*2-K > 

(W/m‘‘2 > 

(C> 

(C 

1 

4.32 

6.08OE<t-03 

1.328E+04 

4.438E<^05 

33.87 

39.39 

n 

L 

3.79 

6.059E>03 

1.371E+04 

4.439E+05 

32.38 

93.83 

3 

3.2E 

5.9E8E403 

1.338E-^04 

4.366E4-05 

31.24 

99.33 

4 

2.73 

5.805E4-03 

1.408E‘«-04 

4.239E485 

30.10 

100.03 

S 

2.21 

5.596E-^03 

1.423E4-04 

4.067E<»-05 

28.47 

99.97 

E 

1.68 

5.320E+C3 

1.477E+04 

3.8E0E-t-05 

26.13 

100.14 

7 

1.15 

4.853E-^e3 

1.539E+04 

3.495E+05 

^ 

99.93 

8 

1.15 

4.859E403 

1 .538Et-04 

3.496E+05 


100.05 

S 

1.68 

5.318E^03 

1.475E+04 

3.851E-«>05 

26.10 

100.01 

10 

2.21 

5.648E-^03 

1.4E2E+04 

4.102E4-O5 

28.05 

100.02 

11 

2.73 

5.884E+03 

1.453E+04 

4.271E+05 

23.40 

33.93 

12 

3.26 

6.036E-i-03 

1.433E+04 

4.331E+05 

30.55 

100.03 

13 

3.78 

E.096E<i-03 

1.387E+04 

4.437E+05 

31 .39 

100.03 

14 

4.31 

6.228E-«-03 

1 .394E-t-64 

4.527E+85 

32.47 

100.10 

Least- 

squares line for q 

» a*delte-T 

*b 



a * 

3.322 

1E^04 






b « 7.SeeOE-01 


NOTE: 14 data points were stored in file AT081 
NOTE: 14 X-Y pairs were stored in data file 
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NOTE: Progran n«M« : ORPALL 

Data takan by : COBB 

Thii analyftift dona on fila : ATB41 
This analyala includat and-fin affact 
Thamal conductivity • S5.S (U/n.K) 

Xnalda dianatar, Di • 12.7B (nn) 

Outalda dianatar. Do • IS.88 (nn) 

TMa analysis usas tha QUARTZ THERtlONETER raadings 

Hodlfiad Patukhov-Popov coafficiant • 2.SBBB 

Using HEATEX insart insida tuba 

Tuba Enhancanant : DEEP FILLET FINt4E0 TUBE 

Tuba notarial : SB/18 CU/NI 

Prassura condition : ATflOSPHERXC 

Nussalt theory is usad for Ho 

Cl (basad on Patukhov-Popov) • 2.S453 


Alpha 

<based 

1 on Nussalt 

(TdaD) • 1 

.8511 



Enhancanant 

<Q) 

■ 1 

.327 



Enhancanant 

<0al-T) 

« 1 

.237 



Data 

Uu 

Uo 

Ho 

Op 

Tef 

Ts 

t 

<n/s) 

<W/n*2-K) 

<U/n"2-K> 

IW/n^Z) 

<C> 

<C) 

1 

4.28 

9.188E4-83 

1.2956-^84 

6.1E1E4-85 

47.56 

188.12 

2 

3.7S 

9.83SE-t-83 

1.321E-f84 

6.81SE4-85 

45.52 

99.92 

3 

3.23 

8.924E4-83 

1.3S1E-<-84 

5.8896-^05 

43.59 

99.94 

4 

2.78 

8.688E483 

f.36eE-»84 

5.6S4E•^85 

41.34 

99.92 

5 

2.18 

8.328E<t>83 

1.3856^ 

5.3746^85 

38.80 

99.97 

6 

1.66 

7.897E+83 

1.4346-^84 

~. 8686-1-85 

35.34 

188.17 

7 

1.14 

7.133E+83 

1.498E-t-84 

4.539E-«’85 

38.47 

188.84 

8 

1.14 

7.136E+83 

1.498E4-84 

4.548E4-85 

38.45 

188.86 

9 

1.66 

8.875E4'83 

1.7S8E-t-84 

5.668E-*^85 

31.52 

188.82 

10 

2.18 

8.434E<t-83 

1.418E4-84 

5.373E•^85 

38.89 

99.96 

11 

1.66 

7.871E+83 

1.421E-«-84 

4.9876-1^85 

35.18 

108.18 

12 

2.78 

8.73SE+83 

1.374E-f84 

5.547E1-85 

48.36 

99.92 

13 

3.22 

9.849E1-83 

1.371E-^84 

5.7355-1^85 

41.84 

93.82 

14 

3.74 

9.2836-^83 

1.347E+84 

5.8275-1^85 

43.25 

99.99 


Laast'spuaras Una for q « a*dalta>T'‘b 
a > 3.51S2E4^04 

b « 7.S888E-f1 


NOTE: 14 data points wars stored in flla AT84I 
NOTE: 14 X-Y pairs wars stored in data flla 
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NOTE: Proor»t» n*ne : ORPALL 

Data t*k«n by : COBB 

TMft tnAlytlk dont on filo : (STBS) 

This anolyiik includot ond-fin offoct 
Tbornol conductivity * SS.3 (W/n.K> 

Inside dieneter, Ol • 12.7B (nn) 

Outside diei^eter. Do « 14.38 

TMs enelysis uses the QUARTZ THERNOnETER reedings 

Nodified Petukhov-Popov coefficient « 2.5BB8 

Using HEATEX insert inside tube 

Tube Enhencenent : SHALLOW FILLET FINNED TUBE 

Tube neteriel : 90/18 CU/NI 

Pressure condition : ATMOSPHERIC 

Nusselt theory is used for Ho 


Cl <be8ed on 

Petukhov-Popov) *2 

.6676 


Alpha 

<based 

on Nusselt 

<Tdel)) • 1 

.8505 


Enhancenent 

<q) 

« 1 

.343 


Enhancenent 

<Del-T> 

■ 1 

.248 


Data 

Uu 

Uo 

Ho 

Op 

Tct 

t 

(n/s) 

(U/n'Z-K) 

<U/i*.*2-K) 

<U/n'‘2) 

(C> 

1 

4.30 

8.577E+03 

1.288E-t^04 

E.138E-«-05 

47.65 

2 

3.78 

8.491E<»-03 

1.313E-t-04 

6.0615^85 

46.17 

3 

3.25 

8.3g3E-»-03 

1.343E-I-04 

6.8165-^05 

44.61 

4 

2.73 

8.115E-*-03 

1.358E-»-04 

5.8245-^05 

42.87 

5 

2.21 

7.747E+03 

1.370E+04 

5.582E-t^05 

40.73 

6 

1.68 

7.36BE+03 

1.436E-^04 

5.301E-^05 

36.92 

7 

1.15 

6.646E-^03 

1.502E-t-04 

4.757E-^85 

31.68 

8 

1.15 

6.6485-^03 

1.5035-^04 

4.778E+05 

31.78 

9 

1.68 

7.33lE-^03 

1.428E-«-04 

5.31554-05 

37.22 

10 

2.21 

7.823E+03 

1.399E+04 

5.685E-»^85 

40.65 

11 

2.73 

8.125E-»-03 

1.356E-»-04 

5.310E 4-05 

43.28 

12 

3.26 

8.373E+03 

1.347E-»04 

E.O63E-405 

45.00 

13 

3.78 

8.568E-t-03 

1.334E-J-04 

6.1945-405 

46.43 

14 

4.31 

8.6855-^03 

1.3155-1-04 

6.274E-405 

47.70 

Least- 

-squares line for q 

■ B*delte-T 

"b 



B « 3.43l8E-»-04 

b * 7.S000E-01 


NOTE: 14 dete points were stored in file AT051 
NOTE: 14 X*Y peirs were stored in dete file 


Ts 
<C > 

100.17 
99.87 

100.12 

99.32 

100.13 

100.13 

99.36 

100.18 
100.01 
100.07 
100.04 

39.96 

93.99 

83.38 
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NOTE: Progr*" n««» *• ORPALL 

OatA takan by : COBB 

TMb analytia done on file : RT031 
This analyaiB includea end*fin effect 
Tbernal conductivity • 14.3 (W/n.K) 

Inaide dianeter, Dl • 12.70 (nn) 

Outalde dianeter. Do • 13.B8 <nn> 

Thia analyaia uaas the QUARTZ THERtlONETER raadinoa 

Nodifiad Petukhov-Popov coefficient * 2.5000 

UBinp HEATEX inaert inaida tube 

Tube Enhancenent : RECTAN6ULAR FINNED TUBE 

Tube naterlal : STAINLESS-STEEL 

Pressure condition : ATMOSPHERIC 

Nussalt theory is used for Ho 


Cl (based on 

Petukhov-Popov > • 2 

.1128 



Alpha 

(based 

on Nusselt 

(TdeD) « 1 

.0062 



Enhancenent 

(Q) 

• 1 

.252 



Enhancenent 

(Oel-T) 

* 1 

. 184 



Data 

Uu 

Uo 

Ho 

QP 

Tcf 

Ts 

t 

(n/s) 

(U/n'2-K) 

<U/n*2-K > 

(W/n*2) 

(C) 

(C 

\ 

4.25 

7.158E+03 

1.419E-»-04 

4.434E+05 

31.24 

99.98 

2 

3.72 

7.015E+03 

1.420E-I-04 

4.311E+05 

30.35 

100.04 

3 

3.20 

6.8966-^03 

1 .446E-t-04 

4.1966+05 

29.02 

100.20 

4 

2.70 

6.719E+03 

1 .49264-04 

4.2686+05 

28.61 

99.98 

5 

4 0 

4 • 1 O 

G.329E+03 

1.4636+04 

4.0816+05 

27.89 

99.87 

G 

1.66 

5.923E+03 

1.4956+04 

3.905E+05 

26.11 

100.03 

•e 

f 

1.14 

5.399E+03 

1.617E+04 

3.5656+05 

22.05 

99.79 

8 

1.15 

5.390E+83 

1.6186+04 

3.604E+05 

22.28 

100.07 

S 

1 .67 

5.932E+03 

1.521E+04 

4.0216+05 

26.44 

99.99 

10 

2.19 

6.318E-«-03 

1.4866+04 

4.3206+05 

29.07 

99.98 

11 

2.72 

6.6646-^03 

1.5006+04 

4.5966+05 

30.64 

39.99 

12 

3.24 

6.858E-«-03 

1,4746+04 

4,7536+05 

32.24 

99.96 

13 

3.77 

6.99lE-*-B3 

1.4486+04 

4.8746+05 

33.66 

99.95 

14 

4.29 

7.087E-*-03 

1.423E+04 

4.9416+05 

34.73 

99.77 

Least- 

-sQuares line for q 

» a*delts-T 

"b 



a ■ 

3.4378E+04 





b * 

7.5000E-01 





NOTE: 

14 data points were stored in 

file AT091 



NOTE: 

14 X-Y 

pairs were 

stored in data file 
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NOTE: Progran n#«e : DRPALL 

Okta taken by : COBB 

Thia analysis dona on file : ATB94 
This analysis includes and-fin affect 
Tharnal conductivity ■ 14.3 tW/n.K) 

Inside dianetar. Oi ■ 12.70 (nn> 

Outside dlanetar, Oo « 13.B8 (nn) 

This analysis uses the QUARTZ THERtlOMETER readings 

nodifled Petukhov-Popov coefficient » 2.5000 

Using HEATEX insert inside tube 

Tube Enhancanent : RECTANGULAR FINNED TUBE 

Tube material : STAINLESS-STEEL 

Pressure condition : ATnOSPHERIC 

Nusselt theory is used for Ho 


Cl <based on 

Petukhov-Popov) * 2 

.0981 



Alpha 

(based 

on Nusselt 

<Tdel)) « 1 

.1333 



Enhancenent 

<q) 

« 1 

.4E8 



Enhancanent 

<0el-T) 

« 1 

.333 



Data 

Uw 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

<n/s) 

<W/n*2-K > 

<W/n*2-K) 

<W/n*2) 

<C) 

(C 

\ 

4.23 

7.491E+03 

1.E82E404 

S.248E<^05 

32.7B 

93.93 

n 

3.77 

7.354E+03 

1.821E+04 

S.147E+05 

31.74 

99.81 

3 

3.24 

7.216E4Q3 

1 .EE2E-«-04 

5.04SE<»-05 

30.35 

100.01 

4 

2.72 

e.956E-»-03 

1.B73E+04 

4.853E-^05 

23.01 

39.32 

S 

2.20 

G.563E<»-03 

1.E54E404 

4.S73E+05 

27. B5 

33.95 

6 

1 .B7 

E.158E-^03 

1.718E+04 

4.287E+05 

24.9E 

99.95 

7 

1.15 

5.5EEE-«-03 

1.8E1E+04 

3.843E-^05 

20.55 

33.81 

8 

1.15 

5.5E7Ei-03 

1.8E5E4-04 

3.851E+05 

20. E5 

93.81 

3 

1 .S7 

E.182E-«-03 

1.733E+04 

4.32BE4-05 

24.88 

108.15 

10 

2.20 

E.E08E-«-03 

1.B87E+04 

4.B31E-t-05 

27.4B 

93.95 

11 


E.948E<t-03 

1.B73E+04 

4.879E-«-05 

29.17 

93.89 

12 

3.25 

7.212E+03 

1.EE4E+04 

5.085E4-O5 

30.55 

100.89 

13 

3.77 

7.339E+03 

1,B17E+04 

5.173E+05 

32.00 

100.02 

14 

4.29 

7.50BE+03 

1 .E10E-»-04 

5.275E+05 

32.7B 

93.35 

Least- 

squares line for q 

■ a*delta-T‘ 

*b 




a > 3.87E3E'»-04 

b * 7.5000E-O1 

NOTE: 14 data points were stored in file AT034 
NOTE: 14 X-Y pairs were stored in data file 
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NOTE: ProQrwt : DRPALL 

Data takari by : COBB 

Thia anaiyai* bone on file : RTIBI 
Thia analyaia includea end-fin effect 
Thernal conductivity • 231.8 (W/n.K> 

Inaide diameter, Di « 12.76 <mm> 

Out aide diameter. Do ■ 13.SB <mm) 

Thia analyaia uaea the 0URRT2 THERMOMETER readinoa 

Modified Petukhov-Popov coefficient » 2.5666 

Usino HEATEX inaert inaide tube 

Tube Enhancement : RECTANGULAR FINNED TUBE 

Tube material : ALUMINUM 

Preaaure condition : ATMOSPHERIC 

Nuaaelt theory ia uaed for Ho 


Ci ibaaed on Petukhov-Popov) ■ 2.3854 

Alpha (baaed on Nuaaelt (Tdel)) • 1.784G 

Enhancement <q) • 2.BBS 

Enhancement <0el-T) • 2.168 


lata 

Uu 

« 

(m/s / 

1 

4.27 

2 

3.75 

9 


3 


4 

2.71 

5 

2.19 

G 

1.57 

7 

1.15 

8 

1.15 

9 

1.57 

10 

2.20 

11 

2.72 

12 

3.24 

13 

3.75 

14 

4.28 


Uo 

<W/m'2-K) 
1.470E+e4 
1 .4UE+64 
I.359E+64 
1.288E+04 
1.197E+84 
1.0giE+64 
9.571E+03 
9.581E+03 
1.082E+04 
1.192E+04 
1.2975+04 
1.371E+04 
1.440E+04 
1,49lE+04 


Ho 

Qp 

Tcf 

Ts 

<«/m*2-K ) 

(W/m'2) 

(C> 

(C 

2.3G0E+04 

9.514E+05 

40.74 

180.00 

2.358E+64 

9.233E+05 

39.42 

100.01 

2.389E+04 

8.S35E+05 

37.55 

100.12 

2.420E+64 

8.54GE+65 

35.31 

99.92 

2.45BE+04 

7.973E+05 

32.45 

99.91 

2.572E+04 

7.292E+05 

28.35 

99.95 

2.923E+84 

G.394E+05 

21.88 

160.11 

2.9G7E+04 

5.4GGE+05 

21.80 

100.02 

2.558E+04 

7.393E+05 

28.90 

99.98 

2.4B2E+04 

8.138E+05 

33.05 

100.14 

2.47GE+04 

8.834E+05 

35.58 

100.15 

2.449E+04 

9.285E+05 

37.92 

100.05 

2.449E+84 

9.722E+05 

39.59 

166.10 

2.435E+64 

1.607E+0G 

41.37 

100.09 


Least-squares line for q * a*delta-T*b 
a « G.033BE+64 

b » 7.5000E-61 


NOTE: 14 data points were stored in file AT101 
NOTE: 14 X-Y pairs uere stored in data file 
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NOTE*. Proof'**'- *'•*'« • DRPALL 

Oat* taken by : COBB 

This onolykia dona on ft la : ATtB3 
Thta analyiis includaa and~fin affect 
Tharnal conductivity ■ 231.8 (W/n.K) 

Inal da dianetar. Oi ■ t2.7B (nn) 

Outalda dianater , Do ■ 13.B8 (*m) 

This analysis uses the QUARTZ THERflOMETER readinos 

flodifiad Patukhov-Popov coafficiant « 2.5008 

Using HEATEX insert insida tuba 

Tuba Enhancanant : RECTANGULAR FINNED TUBE 

Tuba i^atarial : ALUNlNUtl 

Pressure condition : ATMOSPHERIC 

Nussalt theory is used for Ho 

Cl (based on Petukhov^Popov) * 2.2817 


Alpha 

(based 

on Nussalt 

(Tdel)) « 1 

.5987 



Enhancenent 

(q) 

• 2 

.517 



Enhancenent 

(Del-T) 

« 1 

.838 



Data 

Uw 

Uo 

Ho 

Op 

Ttf 

Ts 

t 

(n/s ) 

(U/n*2-K > 

(U/i«i*2-K > 

(U/i».*2 > 

(C ) 

(C> 

t 

) 

4.27 

1 .488E'»-e4 

2.38654-84 

3.3386*85 

48.45 

188.82 

2 

3.75 

1.352E+84 

2.31SE+84 

8.8365*85 

38.15 

188.89 

3 

3.22 

1.315E4-84 

2.3S3E4-84 

8.3455*85 

35.47 

108.12 

4 

2.78 

1.248E+84 

2.37SE4-04 

7.741E+05 

32.59 

93.85 

5 

2.18 

1.178E+84 

2.45354-84 

7.245E*85 

29.54 

99.85 

6 

1.55 

1.86554-84 

2.5735*84 

5.5885*05 

25.68 

188.14 

n 

i 

1.14 

9.217E+83 

2.823E+84 

5.6825*85 

28.13 

188.87 

8 

1.14 

3.222E+83 

2.827E+84 

5.6835*05 

28.18 

188.85 

S 

1 .55 

1.85254-84 

2.557E+84 

5.5835*05 

25.74 

99.86 

18 

2.18 

1.171E4-84 

2.453E+04 

7.2585*85 

29.55 

99.97 

11 

2.78 

1 .26254-84 

2.4215*84 

7.8225*05 

32.31 

108.82 

12 

3.21 

1.32254-84 

2.3535*84 

8.1635+85 

34.59 

188.83 

13 

3.73 

1.37854-84 

2.3255*04 

8.4715*05 

35.43 

108.82 

14 

4.25 

1.419E4-84 

2.2915*84 

8.5895*05 

o-' 

J 1 . 

39.92 


Least-squares line for q * e«delta-T*b 
a * S.7722E+84 

b » 7.5888E-81 


NOTE: 14 data points were stored in file ATi83 
NOTE: 14 X-Y pairs were stored in data file 
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NOTE: Progrtr. ntne : DRPALL 

Data takan by : COBB 

TMa artalyila dona on fila : AT112 
Thia analyaii includaa and-fin affact 
Tharnal conductivity * 231.8 (W/n.K) 

Inside dianatar. Oi ■ 12.70 (nn) 

Outside dianatar, Oo * 13.88 (nn) 

This analysis usas the QUARTZ THERAOtlETER raadings 

flodifiad Patukhov-Popov coefficiant * 2.5880 

Using HEATEX insart inside tuba 

Tube Enhancanent ; DEEP FILLET FINNED TUBE 

Tube natarial : ALUMINUM 

Pressure condition : ATMOSPHERIC 

Nusselt theory is used for Ho 


Cl Ibased on 

Petukhov-Popov ) * 2 

.3321 



Alpha 

(based 

on Nusselt 

(Tdel )> • 1 

.5622 



Enhancanent 

<q) 

« 2 

.251 



Enhancanent 

(Del-T) 

« 1 

.838 



Data 

Uw 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

(n/s) 

<U/n*2-K) 

<U/n"2-K) 

<U/n*2 > 

(C) 

(C 

1 

4.29 

1 .286E-»84 

1.968Et-84 

8.979E+85 

45.63 

99.97 


3.77 

1.263E+84 

2.818E+04 

8.767E+85 

43.45 

188.81 

3 

3.24 

1.227E+04 

2.062E'»’84 

8.424E+05 

48.85 

99.87 

4 

2.72 

1.174E+84 

2.1816^84 

8.8196+05 

38.17 

188.08 

5 

2.19 

1.187E+84 

2.1585^84 

7.487E+85 

34.69 

188.84 

6 

1.67 

1.817E+84 

2.2536+84 

6.8285+85 

38.27 

188.84 

7 

1.15 

8.897E+83 

2.4S3E+84 

5.988E+85 

24.09 

99.99 

8 

1.15 

8.884E<«-83 

2.443E+84 

5.9835+05 

24.16 

188.83 

S 

1.67 

1.816E<^84 

2.243E+04 

E.791E+05 

38.27 

108.86 

18 

2.19 

1.118E<^e4 

2.161E+84 

7.422E+85 

34.35 

99.97 

11 

2.71 

1.187E+84 

2.125E+84 

7.92BE+05 

37.38 

99.93 

12 

3.23 

1.248E+84 

2.182E+04 

8.345E+85 

39.69 

108.87 

13 

3.75 

1.292E+84 

2.867E+84 

8.574E+05 

41.48 

99.99 

14 

4.26 

1.324E+04 

2.8216+84 

8.578E+85 

42.44 

99.99 

Least- 

spuares line for q 

« a*delta-T 

’■b 




a « 5.25l5E-»-84 

b * 7.5088E-81 


NOTE: 14 data points were stored in file ATi12 
NOTE: 14 X-Y peirs were stored in data file 
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NOTE: Prooraw name : DRPALL 

Data taken by : COBB 

Thia analyaia dona on file : RTtSi 
Thia analysis includes and-fin affect 
Tharnal conductivity * 251.8 (U/n.K) 

Inside dianater. Oi * 12.78 <nn) 

Outside dianater. Do « 14.38 <nn) 

This analysis uses the QUARTZ THERhOflETER raadinos 

Modified PetukhovPopov coefficient « 2.5BB8 

Using HEATEX insert inside tuba 

Tube Enhancenent : SHALLOW FILLET FINNED TUBE 

Tube natcrial : ALUfllNUtl 

Pressure condition : ATMOSPHERIC 

Nusselt theory is used for Ho 

Ci Ibased on Petukhov-Popov) ■ 2.2589 


Alpha 

(based 

I on Nusselt 

(Tdel )> * 1 

.4417 



Enhancenent 

<q) 

* 2 

.823 



Enhancenent 

(Del-T) 

« 1 

.595 



Data 

Uw 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

(n/s ) 

<U/n'‘2-K > 

<U/n'‘2'K) 

(W/n‘2 > 

(C5 

(C> 

1 

4.27 

1.285E‘^84 

1.853E+84 

7.878E+85 

42.48 

188.85 

2 

3.75 

1.182E<^84 

1.894E+84 

7.562E+85 

48.45 

99.91 

3 

3.74 

1.181E+84 

1.891E+84 

7.654E+85 

48.47 

99.95 

4 

3.22 

1.148E+84 

1.933E+84 

7.419E+85 

38.38 

188.87 

5 

2.78 

1.894E>e4 

1.956E<t’84 

7.856E+85 

36.87 

99.93 

6 

2.18 

1.828E-«-84 

1.99EE’«-84 

6.622E+85 

33.18 

188.81 

7 

1 .56 

9.399E+83 

2.8535+84 

6.821E+85 

29.32 

188.81 

8 

1.14 

8.382E-^e3 

2.278E+84 

5.383E+85 

23.36 

188.88 

9 

1.14 

8.383E+83 

2.275E+84 

5.314E+85 

23.36 

188.83 

18 

1 .55 

9.4eiE<^e3 

2.8625+84 

6.862E+85 

29.48 

99.93 

11 

2.18 

1.833E+84 

2.8285+84 

6.598E+85 

33.12 

99.95 

12 

2.71 

1.898E+84 

1.949E+84 

7.898E+85 

35.38 

188.83 

13 

3.23 

1.149E+84 

1.942E+84 

7.488E+85 

38.51 

188.81 

14 

3.75 

1.188E+84 

1.892E+84 

7.681E+85 

48.59 

99.95 

15 

4.25 

1.211E+84 

1.8555+84 

7.863E+85 

42.15 

99.99 


Least-squares line for q * a*delta-T"b 
a « 4.8156E-^84 

b » 7.S888E-81 


NOTE*. 15 data points were stored in file AT 131 
NOTE; 15 X-Y pairs were stored in data file 
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NOTE: Progrsn nane : DRPALL 

Data takan by : COBB 

Thii analyaia dona on fila : VTBil 
Thia analyaia includaa and-fin affact 
Tharnal conductivity • 3SB.8 (N/n.K) 

Inaida dianatar, Oi • 12.7B <nn> 

Outaida dianatar. Oo ■ 13.B8 (m) 

This analytic utat tha 0URRT2 THERWOMETER raadingt 

tlodifiad Patukhov-Popov coafficiant • 2.5808 

Ufiing HERTEX inaert intida tuba 

Tuba Enhancanant : RECTRNBULRR FINNED TUBE 

Tuba natariai : COPPER 

Prettura condition : UACUUtI 

NuBsalt theory it utad for Ho 


Cl <based on 

Patukhov-Popov) • 2 

.8862 


Alpha 

<baBad 

on Nussalt 

<Tdal)) • 1 

.5085 


Enhancanant 

<Q) 

• 2 

.275 


Enhancanant 

<Del-T) 

» 1 

.853 


Data 

Uu 

Uo 

Ho 

Op 

Tcf 

t 

(n/s > 

<U/n'2-K) 

<U/n*2-K) 

(W/n*2 > 

<C> 

1 

2.21 

1.288E+84 

2.122E+84 

2.843E<«-85 

13.40 

2 

8.63 

7.888E+83 

2.865E-^84 

1.778E+85 

6.80 

3 

1.16 

1.087E+84 

2.465E+84 

2.317E+85 

9.48 

4 

8.63 

7.724E+83 

2.754E+84 

1.751E+05 

6.36 

5 

1.68 

1.127E+84 

Z.240E-»-84 

2.722E+05 

12.15 

6 

2.74 

1.328E+84 

2.222E+84 

3.184E485 

14.33 

7 

3.27 

1.367E+84 

2.142E+84 

3.316Et85 

15.48 

8 

3.88 

1.455E<^84 

2.212E+84 

3.426Et-85 

15.49 

8 

4.32 

1.466E^84 

2.131E+84 

3.485E+85 

16.35 

18 

4.85 

1.502E+84 

Z.122E+84 

3.551E405 

16.74 

11 

4.32 

1.431E+84 

2.05SE<^84 

3.315E+85 

16.13 

12 

3.78 

1.438E+84 

2.171E+84 

3.325E+85 

15.31 

13 

3.27 

1.386E+84 

2.183E+84 

3.Z86Ei-05 

15.05 

14 

2.74 

1.322E+84 

2.2eeE<^84 

3.883E+85 

14.06 

15 

2.21 

1.244E+84 

2.232E+84 

2.888E+85 

13.03 

16 

1.68 

1.134E+84 

2.268E’t-e4 

2.647E+85 

11.71 

17 

1.16 

8.884E+83 

2.362E+84 

2.334E+8S 

8.88 

18 

1.16 

8.773E+83 

2.283E+84 

2.350E4-05 

18.29 

18 

1.68 

1.172E+84 

2.417E+84 

2.820Et^05 

11.66 

Least 

-squares line for i 

1 * a*delta-T 

*b 



a « 4.27S2E+84 

b - 7.5088E-81 


note*. 19 data points ware stored in file UT811 
NOTE; 19 X-Y pairs were stored in data file 


Ts 

(C) 

48.54 
48.69 
48.28 
48.47 
48. B6 

48.49 
48.73 
48.31 
48.67 
48.78 
48.22 
48.35 
48.81 

48.49 

48.55 

48.49 
48.98 
48.37 
48.18 
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NOTE: Progran nanc : ORPALL 

Data takan by : COBB 

Thik analysia dona on file : VTB21 
Tnia analyaii includaa and-fin affact 
Tharnal conductivity « 39B.8 <W/n.K) 

Inalda dianetar, Ol ■ 12.7B (nn) 

Outkida dianatar. Do * 14.58 (im) 

Tbia analysis uses the QUARTZ THERnOflETER readings 

nodifiad Patukhov-Popov coefficiant « 2.5888 

Using HEATEX insart inside tube 

Tube Enhancanent t SHALLOW FILLET FINNED TUBE 

Tube natarial : COPPER 

Pressure condition : UACUUft 

Nusselt theory is used for Ho 

Cl <based on Petukhov-Popov) » 2.7942 


Alpha 

(based 

on Nusselt 

(TdeD) « 1 

.1491 



Enhancanent 

(q) 

« 1 

.594 



Enhancanent 

(Del-T) 

« 1 

.419 



Data 

Uu 

Uo 

Ho 

Qp 

Tcf 

Ts 

t 

(n/s) 

(U/n*2-K) 

<W/n'2-K ) 

<U/n*2 > 

(C> 

(C) 

1 

8.63 

6.6l6E<«-83 

2.125E+84 

1.5866+85 

7.46 

48.91 

2 

1.16 

8.435E+83 

1.9816+84 

2.86261-85 

18.85 

48.66 

3 

1.69 

9.253E+83 

1.718E+84 

2.3826+85 

13.46 

48.78 

4 

2.22 

9.778E+83 

1.6126+84 

2.4626+85 

15.27 

48.97 

S 

2.74 

1.843E4-84 

1.6236+84 

2.5946+85 

15.98 

48.65 

6 

3.26 

1.189E+84 

1.6496+84 

2.5326+85 

15.35 

48.35 

7 

4.84 

1.191E+84 

1.611E+84 

2.6996+85 

16.75 

48.78 

8 

4.84 

1.199E<t-84 

1.6246+84 

2.6256+85 

16.16 

48.45 

9 

4.31 

1.181E+84 

1.6386+84 

2.5266+85 

15.42 

48.71 

18 

3.77 

1.1626^84 

1.6686+84 

2.3716+85 

14.28 

48.85 

11 

4.29 

1.183E+84 

1.6346+84 

2.3346+85 

14.28 

48.85 

12 

3.76 

1.172E+84 

1.673E+84 

2.1966+85 

13.13 

48.87 

13 

3.24 

1.168E'^84 

1.731E+84 

2.8886+85 

12.86 

48.57 

14 

2.72 

1.1886^84 

1.7286+84 

1.9866+85 

11.49 

48.94 

IS 

2.19 

1.878E+84 

1.8836+84 

1.8166+85 

18.87 

48.56 

16 

1 .67 

1.887E+84 

1.8956+84 

1.6476+85 

8.78 

48.68 

17 

1.14 

8.7786+83 

1.9116+84 

1.4896+85 

7.37 

48.79 

18 

8.62 

6.931E+83 

2.135E+84 

1.8786+85 

5.85 

48.92 


Least-squares line for q « e»delta-T*b 
a > 3.2492E-f84 

b > 7.5888E-81 


NOTE: 18 data points were stored in file UT821 
NOTE: 18 X-Y pairs uere stored in data file 
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NOTE: Proof'ttw nane : ORPALL 

Data lakan by : COBB 

This analysia dona on fila : VTf23 
This analyaiK includat and-fin affact 
Tharnal conductivity » 39B.8 (U/n.K) 

Inaida dianatar. Oi • 12.7B (m»> 

Outtida dianatar. Do * 14.38 <nn> 

This analysis usas tha QUARTZ THERMOMETER raadinQS 

Modified PatukMov-Popov coafficiant « 2.500C 

UsinQ HEATEX insert inside tuba 

Tuba Enhancanant : SHALLOW FILLET FINNED TUBE 

Tuba material : COPPER 

Pressure condition : UACUUM 

Nussalt theory is used for Ho 

Cl (based on Patukhov-Popov) * 3.0216 


Alpha 

(based 

1 on Nussalt 

(Tdal>) « 1 

.1247 



Enhancanant 

(q> 

• 1 

.543 



Enhancement 

(Oal-T> 

« 1 

.388 



Data 

Uu 

Uo 

Mo 

Op 

Tcf 

Ts 

t 

(n/s) 

(W/m*2-K) 

<U/m*2-K > 

(W/n'2) 

(C> 

(C> 

1 

1.13 

1.0135-^04 

2.303E+04 

9.S72E+04 

4.15 

48.82 

2 

1.65 

1.129E-»-04 

2.111E+04 

1.076E+05 

5.10 

48.36 

3 

2.17 

1.269E+04 

2.203E+04 

1.168E+05 

5.23 

48.64 

4 

2.68 

1.303E+04 

2.O83E+04 

1.206E+05 

5.77 

48.81 

5 

3.20 

1.3746+04 

2.034E+04 

1.263E+05 

6.03 

48.88 

6 

3.71 

1.453E+04 

2.15OE+04 

1.217E+05 

5.66 

48.54 

7 

4.23 

1.434E+04 

2.021E+04 

1.13ZE+0S 

5.90 

48.87 

8 

4.25 

1.334E+04 

1.847E+04 

1.711E+05 

9.27 

48.79 

3 

3.73 

1.336E+04 

1.321E+04 

1.61ZE+05 

8.39 

48.71 


Least-squares Una for q « a^dalta-T'b 
a ■ 3.2541E+04 

b ■ 7.5000E-01 


NOTE: 03 data points were stored in file UT023 
NOTE: 03 X-Y pairs ware stored in data fila 
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NOTE: ProQf'art : ORPALL 

D*tP taken by : COBB 

This enelytie done on file : UTB51 
This enelysie includes end~fin effect 
Themel conductivity * 39*.8 (U/n.K) 

Inside diancter, 0i > 12.7B (nn) 

Outside dieneter. Oo « 13.88 (nn) 

This analysis uses the QUARTZ THERtlOtlETER reedmos 

nodlfied Petukhov-Popov coefficient • 2.5BM 

Us mo HEATEX insert inside tube 

Tube Enhencenent : DEEP FILLET FINNED TUBE 

Tube neterial : COPPER 

Pressure condition : UACUUA 

Nusselt theory is used for Ho 


Cl (based on 

Petukhov-Popov) ■ 3 

.0312 



Alpha 

(based 

on Nusselt 

(Tdel)) ■ 1 

.2910 



Enhancenent 

(q> 

• 

.862 



Enhancenent 

(Del-T ) 

« 1 

.594 



Data 

Uu 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

(n/8 > 

(U/n*2“K) 

(U/n'2-K) 

(U/n*2) 

(C) 

(C 

1 

0.53 

7.685E4>03 

2.547E+04 

1.647E+05 

6.47 

48.55 

2 

1.15 

9.431E+03 

2.040E^04 

2.035E<«-O5 

9.98 

48.72 

3 

1.68 

1.076E+04 

1 .986E4-04 

2.274E+05 

11.45 

48.54 

4 

2.19 

1.177E+04 

1 .930E4'04 

1.88154^05 

9.75 

48.67 

S 

2.71 

1-243E+04 

1.908E404 

1.99064^05 

10.43 

48.95 

6 

4.80 

1 .S01E<^04 

2.058E4-04 

2.508E<^05 

12.13 

48.58 

7 

4.27 

1.485E-«-04 

2.107E+04 

2.395E+05 

11.37 

48.51 

8 

3.75 

1 .4l8E<*-04 

2.053E<*-04 

2.222E+05 

10.83 

48.98 

9 

3.22 

1 .411E+04 

2.149E+04 

2.06264^05 

9.59 

48.54 

10 

2.70 

1.326E404 

2.099E-(-04 

1.909E-^05 

9.09 

48.70 

n 

3.22 

1.4125^04 

2.147E+04 

1.988Et05 

9.26 

48.68 

12 

3.75 

1 .4S8E'^04 

2.139E^04 

2.238E^05 

10.46 

48.51 

13 

4.27 

1 .479E+04 

2.089E'^04 

2.233E-^05 

10.69 

48.50 

14 

4.79 

1.512E>04 

2.081E4-04 

2.30654^05 

11.08 

48.57 

15 

0.62 

7.733E+03 

2.403Et04 

1.335E<»-05 

5.56 

48.91 

15 

1.15 

9.971E+03 

2.238Et>04 

1.8025-^05 

8.05 

48.38 

17 

1.67 

1.106E-»04 

2.0S7E+04 

2.077E+05 

10.10 

48.40 

18 

2.20 

1.1805-^04 

1.975E+04 

2.344E+05 

11.87 

48.72 

Least- 

squares line for q 

• a*delte-T‘ 

‘b 




a • 3.72e2E+04 

b « 7.5008E-01 


NOTE: 18 data points were stored in file UT031 
NOTE: 18 X-Y pairs were stored in data file 
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NOTE: ProQran name : ORPALL 

Oftla taken by : COBB 

Thie enelyeie done on file : VTB41 
This enelytie includes end*fin effect 
Thernel conductivity ■ S5.3 (U/n.K> 

Inside diameter, Oi « 12.78 (mn) 

Outside diameter, Oo • 13.88 <mm) 

TMs analysis uses the QUARTZ THERnOtlETER readinQs 

Modified Petukhov-Popov coefficient > 2.5808 

UsinQ HEATEX insert inside tube 

Tube Enhancement : DEEP FILLET FINNED TUBE 

Tube material : 98/18 CU/NI 

Pressure condition : VACUUM 

Nusselt theory is used for Ho 


Cl ibased on 

Petukhov-Popov) ■ 2 

.4826 


Alpha 

(based 

on Nusselt 

(TdeD) * 8 

.8597 


Enhancement 

(q) 

« 1 

.883 


Enhancement 

(Oel-T) 

« 1 

.861 


Date 

Vu 

Uo 

Ho 

Op 

Tcf 

S 

(m/s) 

(U/m*2-K) 

(W/m'2-K > 

(W/m*2> 

(C> 

1 

4.28 

9.181E+83 

1.339E+84 

1.561E+05 

11.66 

2 

3.75 

9.238E4-83 

1.397E+84 

1.588E+65 

18.88 

3 

3.23 

8.981E-^83 

1.383E+84 

1.42tE+85 

18.28 

4 

2.71 

8.69eE<t-83 

1.416E+84 

1 .3436+85 

9.48 

5 

2.18 

8.2626-^83 

1.424E+84 

1.257E+85 

8.98 

6 

4.27 

9.272E-*-83 

1.356E+84 

1.5466+85 

11.48 

7 

3.75 

9.812E+83 

1.345E+84 

1.4816+85 

18.42 

8 

1.14 

7.834E+83 

1.S71E+84 

1.8416+05 

6.62 

9 

1.66 

7.751E+83 

1.465E+84 

1.158E+85 

7.98 

18 

1.14 

7.867E+83 

1.583E+84 

1.8296+85 

6.58 

11 

1 .66 

7.862E-t-83 

1.582E+84 

1.1346+85 

7.55 

12 

2.18 

8.3976+83 

1.462E+e4 

1.287E+85 

8.26 

13 

2.78 

8.726E+83 

1.422E+84 

1.255E+85 

8.83 

14 

3.22 

9.114E+83 

1.429E+84 

1.296E+05 

9.87 

Least- 

■squares line for q 

* a*delta-T' 

*b 



a « 2.48I3Ei'84 

b « 7.5888E-8*i 


NOTE: 14 data points were stored in file VTe4i 
NOTE: 14 X-Y pairs were stored in data file 


Ts 

<C) 

48.64 

48.67 

48.84 

48.87 

49.81 

48.97 

48.61 

48.52 

48.61 

48.67 

48.46 

48.55 

48.64 

48.57 
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NOTE: Progran n«n« : DRPALL 

Date tak«n by : COBB 

Thik anklyiift done on filo : VTB51 
Thkk onolytli includoi ond^fin cffoct 
Thornel eonducllvlty > SS.3 (N/n.K) 

Inside dieneter, Di ■ 12.78 (nn) 

Outside dieneter. Do « 14.3B (nn) 

This anelysis uses the QUARTZ THERnOAETER reedings 

nodi tied Petukhov-Popov coefficient ■ 2.50M 

Using HEATEX insert inside tube 

Tube Enhancenent : SHALLOW FILLET FINNED TUBE 

Tube naterial : 98/IB CU/NI 

Pressure condition : UACUUn 

Nusseit theory is used for Ho 


Cl <based on 

Petukhov-Popov) ■ 2 

.8481 



Alpha 

(based 

on Nusseit 

(TdeD) - 8 

.8324 



Enhancenent 

<q) 

» 1 

.837 



Enhancenent 

<0el-T) 

« 1 

.828 



Date 

Uw 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

(n/s) 

<U/n*2-K) 

<U/n*2-K) 

(W/n*2> 

<C) 

<C 

1 

4.25 

8.833E-«‘83 

1.3805484 

1.861E405 

8.16 

49.83 

2 

3.73 

9.831E483 

1.385E484 

1.810E405 

7.29 

48.63 

3 

3.23 

8.737E+83 

1.384E404 

1.2985405 

9.32 

48.51 

■4 

L * t ^ 

8.156E483 

1.3225484 

1.455E485 

11.81 

48.74 

5 

2.28 

7.748E+83 

1.3175484 

1.474E485 

11.19 

48.76 

6 

1 .88 

7.169E483 

1.3I8E484 

1.4655405 

11.18 

48.68 

7 

1.15 

6.451E483 

1.3375484 

1.3565485 

18.15 

48.96 

8 

1.15 

6.337E483 

1.2915484 

1.3585405 

18.46 

49.08 

9 

1 .68 

7.843E483 

1.278E484 

1.473E485 

11.68 

48.85 

18 

2.28 

7.568E483 

1.2735484 

1.552E405 

12.26 

48.81 

11 

2.72 

7.944E483 

1.277E484 

1.6235405 

12.71 

48.88 

12 

3.25 

8.297E+83 

1.2935484 

1.649E405 

12.76 

48.85 

13 

3.77 

8.372E483 

1.2575484 

1.6445405 

13.88 

49.15 

14 

4.29 

8.511E483 

1.2495404 

1.6615405 

13.29 

49.87 

Least- 

squares line for q 

■ a«delta-T 

*b 




a « 2.3E83E4>e4 

b » 7.5808E-81 


NOTE: 14 data points were stored in file UTOSt 
NOTE: 14 x-Y pairs were stored in date file 
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NOTE: ProQran n«nc : ORPALL 

Data ttkftn by : COBB 

Thift analytlft done on filo : VTB61 
Thii onalykit includok ond-fin offoct 
Thornol conductivity • S5.3 <U/iii.K} 

Inoide dlonetor, 0l • 12.70 (nn) 

Outkido dianotor. Do ■ 13.BB <nn) 

Thlk anklykik Ukkk th« QUARTZ THERtlONETER rokdlnQk 

Hodifiod Pktukhov-Popov coofficiont ■ 2.5BM 

UkinQ HEATEX inkort inkldc tube 

Tube Enhencenent : RECTANGULAR FINNED TUBE 

Tube neteriel : BG/1G CU/NI 

Prekkurc condition : UACUUN 

Nukkelt theory ik uked for Ho 


Cl (baaed on 

Petukhov-Popov) ■ 2 

.3262 


Alpha 

(baaed 

on Nukkelt 

(Tdel)> » 1 

.0725 


Enhancanent 

<Q) 

• 1 

.454 


Enhencenent 

(Oel-T) 

« 1 

.324 


Data 

Uu 

Uo 

Ho 

Op 

Tcf 

t 

(n/k / 

(U/n'2-K) 

(U/n*2-K ) 

(W/n*2 > 

(C> 

1 

0.63 

5.134E+03 

1.704E+04 

1.179E+05 

6.92 

2 

1.16 

6.9S2E<^03 

1.799E+04 

1.669E+05 

9.28 

3 

1.69 

7.922E+03 

1.7206+04 

1.900E+0S 

11.04 

4 

2.21 

8.478E-«-03 

1.6336+04 

2.070E+0S 

12.68 

5 

2.74 

9.022E<«-03 

1.6266+04 

2.187E+0S 

13.45 

6 

3.27 

9.282E<»-03 

1.571E+04 

2.264E+05 

14.42 

7 

3.79 

9.635E403 

1.572E+04 

2.293E+05 

14.59 

8 

4.32 

9.778E+03 

1.5346+04 

2.299E+05 

14.99 

9 

4.84 

O.OlSE’fOS 

1.5106+04 

2.309E+05 

15.30 

10 

4.84 

9.87SE+03 

I.SOeE+04 

2.307E+05 

15.38 

11 

0.63 

S.810E403 

2.491E+04 

1.112E+05 

4.46 

12 

1.15 

7.270E+03 

1.914E+04 

1.378E+05 

7.20 

13 

1.67 

8.2266^03 

1.793E+04 

1.562E+05 

8.71 

14 

1.67 

8.098E4-03 

1.732E+04 

1.5556+05 

8.97 

Least- 

kouaree line for q 

■ a*delta-T 

'b 



e • 3.e792E+04 

b « 7.5Ge0E-ei 


NOTE: 14 date pointk were ktored in file UTB61 
NOTE: 14 X~Y pairk were ktored in data file 


Tk 

(C> 

48.75 

49.06 

48.64 

48.96 

48.69 

49.09 

48.60 

48.78 

48.93 

49.11 

48.88 

48.62 

48.53 

48.83 
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NOTE: Progran nanc : ORPALL 

Data takari by : COBB 

Thia analyaia dona on fila : VTBS3 
Thik analyaia xncludaa and*fin affact 
Tharnal conductivity ■ 55.3 <W/n.K> 

Inaida dianatar. Oi « 12.7B (nn/ 

Outaide dianatar. Do ■ <3.88 <mi> 

This analysis usas tha QUARTZ THERnONETER raadings 

Nodifiad Patulihov-Popov coafficiant ■ 2.5BB8 

Using HEATEX insart insida tuba 

Tube Enhancanant : RECTANGULAR FINNED TUBE 

Tuba natarial : BG/IB CU/NI 

Pressure condition : UACUUN 

Nussalt theory is used for Ho 


Cl (based on 

Petulihov-Popov ) ■ 2 

.4146 



Alpha 

(based 

on Nusselt 

(TdeD) * 1 

.0411 



Enhancenent 

(q) 

• 1 

.397 



Enhancenent 

(Oel-T) 

• 1 

.285 



Cata 

Uw 

Uo 

Ho 

Qp 

Tcf 

Ts 

t 

(K/S ) 

(U/n“2-K 5 

(U/«*2-K ) 

(U/f.*2 > 

(C) 

(C 

1 

4.32 

3.577E■^C3 

1.4656-^84 

2.270E■^05 

15.43 

48.78 

4 

3.73 

9.38lE<^e3 

1.48lE-*-04 

2.232E■^05 

15.07 

48.76 

3 

1.68 

7.859E+03 

1.625E-<-e4 

1.827E-^0S 

11.25 

48.62 

4 

1.16 

6.965G<»-e3 

1.710E+O4 

1.61564-05 

9.45 

48.85 

5 

3.27 

9.23eE-t-e3 

1.526E-»e4 

2.199E4-05 

14.41 

48.80 

G 

2.21 

8.438E403 

1 .570E-*-04 

1.979E4-05 

12.61 

48.65 

7 

2.74 

8.32«E-»-C3 

1.5546-^04 

2.10364-05 

13.53 

48.65 

8 

2.74 

8.932E+C3 

1 .5586-^04 

2.10264-05 

13.50 

48.64 

3 

2.21 

8.4e8E^e3 

1.5596^04 

<.37764-05 

12.68 

48.72 

<0 

3.27 

3.228Et-e3 

1 .S25E-»-04 

2.184E4-05 

14.32 

48.70 

< 1 

1.68 

7.797E•^^3 

1.53364-04 

1.83164-05 

11.45 

48.82 

12 

3.79 

9.431E+83 

1.434E-'-e4 

2.227E4-05 

14.91 

48.56 

<3 

1.16 

7.004E'*’03 

1.733E■^04 

1.63164-05 

3.41 

48.36 

<4 

4.32 

3.6846-^03 

1.49IE■^e4 

2.283E4-05 

15.32 

48.68 

Least- 

■squares line for q 

« a*d6lta-T 

"b 




a « 2.96<7E+«4 

b « 7.5B08E-B1 


NOTE: <4 data points were stored in file UTOGS 
NOTE: <4 X-Y pairs were stored in data file 
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NOTE: Progran ntPte : DRPALL 

Oats takan by : COBB 

Thii analyaia dona on fjla : VTB71 
Tbit analyaia includaa and-fin affact 
Tharnal conductivity * 14.3 (y/n.K) 

Inalda dianatar, Ol * t2.7B (nn) 

Outaida dianatar. Do « 13.B8 inn) 

Thia analyaia uaaa tha QUARTZ THERNOHETER raadinga 

Hodlfiad PatukbovPopov coafflciant • 2.5BBB 

Uaing HEATEX inaart inaida tuba 

Tuba Enhancanant : DEEP FILLET FINNED TUBE 

Tuba natarlal : STAINLESS>STEEL 

Praaaura condition : UACUUfl 

Nuaaalt tbaory la uaad for Ho 

Cl Ibaaad on Patukhov-Popov> > 2.1 BBS 


Alpha 

Ibaaad 

on Nuaaalt 

<Tdal))« 0.7827 



Enhancanant 

<q) 

• 

.955 



Enhancanant 

<Dal-T) 

« 

.966 



Data 

Uw 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

<n/8) 

<W/n'2-K) 

<U/n*2»K> 

<W/n*2) 

<C) 

(C) 

1 

4.32 

6.3e9E<t-B3 

1.157E-*-04 

1.5066405 

13.02 

48.89 

2 

t.lE 

4.898E-*-B3 

1.337E-I-04 

1.133E405 

8.48 

48.60 

3 

3.79 

6.293E'fe3 

1.199E4-04 

1.505E405 

12.56 

48.73 

4 

1.68 

5.3S5E<«>B3 

1.24864-04 

1.2626405 

10.11 

48.71 

5 

3.27 

6.1546-^03 

t.2I0E-»-84 

1.474E405 

12.18 

48.69 

6 

2.21 

5.6626-^03 

1.209E-»-C4 

1.3476405 

11.14 

48.69 

7 

2.74 

5.937E-^03 

1.208E-»-04 

1.422E405 

11.77 

^'8.70 

8 

2.74 

5.9286^03 

1.2046-1-04 

1.425E405 

11.83 

48.76 

S 

2.21 

5.7l6E-fr03 

1.2346-404 

1.370E405 

11.10 

48.74 

ie 

3.27 

6.1626-^03 

.1.213E+04 

1.4866405 

12.25 

48.72 

11 

1.68 

5.339E-»-03 

1.24164-04 

1.273E405 

10.26 

48.74 

12 

3.79 

E.256E-t-03 

1.18664-04 

1.523E405 

12.84 

48.86 

13 

1.16 

4.860E-«'03 

1.3286404 

1.155E405 

8.69 

48.79 

14 

4.32 

6.318E-f03 

1.1616404 

1.5196405 

13.08 

48.67 


Laaat-aquBras lina for q * a^dalta-T'b 
a « 2.2412E+B4 

b « 7.50BBE-01 


NOTE: 14 data points uara storad in fila UTC71 
NOTE: 14 X-Y pairs uara storad in data file 
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NOTE: ProQran nanc : ORPALL 

Data takari by • COBB 

This analyaia dona on file : WTBBJ 
This analysis includas and-fin affact 
Tharnal conductivity • 14.3 (U/n.K) 

Insida dianatar, 0i ■ 12.78 (n«> 

Outsida dianatar, Do ■ 14.58 (nn) 

This analysis usas tha QUARTZ THERMOflETER raadinQs 

Modiflad Patukhov-Popov coafficiant ■ 2.S808 

Using HEATEX insart insIda tuba 

Tuba Enhancanant : SHALLOW FILLET FINNED TUBE 

Tuba natarial '• STAINLESS-STEEL 

Prassura condition : VACUUM 

Nussalt thaory is usad for Ho 


Cl (basad on Patukhov-Popov> * 2.1S23 
Alpha Ibasad on Nussalt <Tdal)) • 8.79S7 
Enhancanant (q) • .977 
Enhancanant <Dal~T) * .982 


Data 

Uw 

t 

<n/s) 

1 

4.32 

2 

1.IE 

3 

3.88 

4 

1.59 

5 

3.27 

E 

2.21 

t 

2.74 

8 

2.74 

9 

2.74 

18 

4.32 

11 

3.88 

12 


13 

2.21 

14 

2.21 

15 

1.59 

IE 

1.15 


Uo 

<U/«*2-K) 
S.E42E<^e3 
4.419E+83 
5.653E-«-83 
4.858Et>83 
5.564E+83 
5.191E+C3 
5.431E+83 
5.424E^83 
5.454E-^e3 
5.694E+83 
5.E49E-i>83 
5.Ee8E-t-83 
5.237E+83 
5.2UE+83 
4.95lE-^e3 
4.495E483 


Ho 

<U/n'2-K) 
1.174E+S4 
1.321E+C4 
1.229E+84 
1.2B9E+e4 
1.254E+84 
1.277E+e4 
1.2798*84 
1.275E+C4 
1.291E+C4 
1.19EE*84 
1.2288+84 
1.274E+84 
1.383E+84 
1.289E+84 
1.339E+84 
1.3928+84 


Op 

<W/n*2> 
1.387E+85 
1.8E3E+05 
1.394E+85 
1.1888+85 
1.3E8E+85 
1.275E+85 
1.348E+85 
1.339E+85 
1.349E+85 
1.389E+85 
1.378E+85 
1.35EE+85 
1.278E+85 
1.2E8E+85 
1.195E+85 
1.888E+85 


Tcf 

<C) 

11.81 

8.84 
11.34 

9.38 

18.91 

9.98 

18.48 

18.51 
18.45 

11.51 
11.18 
18.E4 

9.75 

9.84 
8.92 
7.7B 


Laast-squaras line for q » a*dalta-T*b 
a « 2.2598E+84 

b « 7.5888E-81 


NOTE: IB data points were stored in file UTOBl 
NOTE: IE X-Y pairs were stored in data file 


Ts 

<C) 

48.79 

48.74 

48.71 

48.72 
48. B5 
48.7E 
48.78 
48.78 
48.83 
48.72 
48.ES 
48.E9 

48.72 
48.74 
48.55 

48.73 
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NOTE: Proof“«» nane ; ORPftLL 

Data takan by • COBB 

This analysis dona on fiia : VTtSl 
This analysis includas and-fin affact 
Tharnal conductivity “ 14.3 (U/n.K) 

Insida dianatar, Di ■ 12.7® <iw) 

Outsida dianatar. Do ■ 13.B8 (nn) 

This analysis usas the OUhRTZ THERhOHETER raadinQs 

Modiflad Patukhov-Popov coafficiant « 2.500* 

UsinQ HEATEX insart insida tuba 

Tuba Enhancawant : RECTANGULAR FINNED TUBE 

Tuba natarial : STAINLESS-STEEL 

PrasBura condition : UACUUfI 

Nussalt thaory is used for Ho 


Ci (based on Patukhov-Popov) ■ 1.9382 
Alpha (based on Nussalt (Tdall) * 0.6872 
Enhancanant (q) ■ *803 
Enhancanant <Dal-T) ■ .848 


Data 

Uw 

Uo 

t 

(n/s ) 

<W/n*2-K1 

1 

4.27 

6.173E403 

2 

3.75 

6.163E403 

3 

3.23 

6.161E403 

4 

2.71 

5.894E+03 

5 

2.19 

S.66SE403 

6 

1.66 

5.332E+03 

7 

1.14 

4.832E403 

8 

1.14 

4.843E403 


Ho 

Op 

Tcf 

Ts 

(U/n*2-K) 

<U/n‘2) 

(C) 

(C 

1.117E+64 

9.392E+04 

8.41 

48.88 

1.1616+04 

9.927E+04 

8.55 

43.02 

1.224E+04 

1.067E+05 

8.22 

48.70 

1.283e+04 

9.62SE+04 

8.00 

48.83 

1.224E+04 

8.919E+04 

7.29 

48.67 

1.251E+04 

8.122E+04 

6.49 

48.72 

1.308E+04 

7.116E+04 

5.44 

48.72 

1.320E+04 

7.083E+04 

5.37 

48.72 


Laast-squaras lina for q ■ a*dalta-T*b 
a« 1.93335404 
b « 7.S000E-01 


NOTE: 08 data points uara stored in file VT031 
NOTE: 08 X-Y pairs were stored in data file 
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NOTE: ProQraR n«ne : DRPALL 

D«t« taker, by : COBB 

TMa analysia done on file : VTe93 
This analyaia includes end-fin effect 
Thernal conductivity • 14.3 <U/n.K) 

Inside diameter. 01 ■ 1Z.7B (mm) 

Outside diameter. Oo * 15.88 (mm) 

This analysis uses the QUARTZ THERfiOtlETER readmos 

nodified Petukhov-Popov coefficient « 2.5008 

Using HEATEX insert inside tube 

Tube Enhancement : RECTANGULAR PINNED TUBE 

Tube material : STAINLESS-STEEL 

Pressure condition : VACUUM 

Nusselt theory is used for Ho 

Cl (based on Petukhov-Popov) * 1.S3G5 


Alpha 

(based 

on Nusselt 

(Tdel)) * 0 

.7823 



Enhancement 

(q) 

S 

.955 



Enhancement 

(Del-T) 

m 

.966 



Data 

Vw 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

(m/s) 

(U/m'2-K ) 

(W/m^Z-K ) 

(W/m*2) 

(C) 

(C> 

\ 

4.32 

6.220E+03 

1.162E+04 

1.493E+05 

12.85 

48.79 

2 

1.15 

4.754E+03 

1.352E+04 

1.0706-^05 

7.92 

48.67 

3 

3.79 

6.26lE->-03 

1.224E+04 

1.432E+05 

11 .70 

48.67 

4 

1.68 

S.32SE+03 

1.307E+04 

).17OEi-05 

8.96 

48.71 

5 

3.26 

6.109E+03 

1.231E+04 

1.347E+05 

10.94 

48.56 

6 

2.20 

5.671E+03 

1.266E*84 

1.230E+05 

9.71 

48.71 

7 

2.73 

5.985E+03 

1.273E+04 

1.291E+05 

10.14 

48.60 

8 

2.73 

5.952E+03 

1.257E+04 

1.291E+05 

10.26 

48.83 


Least-SQuares line for q ■ a^delte-T'b 
a • 2.2485E+04 

b » 7.5000E-O1 


NOTE: 08 data points were stored in file VT093 
NOTE: 08 X-Y pairs were stored in data file 
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NOTE: ProQran nane : DRPALL 

Data takeri by : COBB 

TMa analyaia dona ori fila : VTC94 
This analyaia includaB and-fin affacl 
Tharnal conductivity • 14.3 <U/«.K) 

Inside dianatar, Dl • 12.78 

Outside dianeter. Do « 13.88 <An> 

This analysis uses the QUARTZ THERMOMETER raadinQs 

Modified Petukhov-Popov coefficient • 2.5888 

Us mo HEATEX insert inside tube 

Tube Enhancenant : RECTANGULAR FINNED TUBE 

Tube material J STAINLESS-STEEL 

Pressure condition : UACUUM 

Nusselt theory is used for Ho 


Cl (based on 
Alpha (based 
Enhancewent 
Enhancenant 

Petukhov-Popov) ■ 1 

on Nusselt (TdelD * 8 

(q) ■ 1 

(Del-T) * 1 

.9238 

.8485 

.864 

.847 


Data Uu 

Uo 

Ho 

Qp 

Tcf 

4 (n/s) 

(U/n''2-K ) 

(W/i«.“2-K > 

(W/n'‘2 > 

(C) 

1 4.33 

6.4886+83 

1.237E+84 

1.619E+85 

13.89 

2 1.16 

4.817E+83 

1.4546+84 

1. l'3SE+85 

8.24 

3 3.88 

6.387E+83 

l.r98E+84 

1.636E+85 

12.58 

4 1.69 

5.4846+83 

1 .4816+84 

1.356E+85 

9.68 

5 3.27 

6.2866+83 

1.3386+84 

1.614E+85 

12.14 

G 2.22 

5.G93E+83 

1.313E+84 

1.4526+85 

11.86 

7 2.75 

6.8586+83 

1.334E+84 

1.553E+85 

11 .64 

8 2.75 

6.188E+83 

1.362E+C4 

1.5636+85 

11.47 

9 2.22 

5.679E+83 

1.3866+84 

1.4486+85 

11 .83 

18 3.27 

6.1996+83 

1.2926+84 

1.5886+85 

1 ^ 

1 4 • 

11 1.69 

5.337E+83 

1.357E+84 

1.341E+85 

9.88 

12 3.88 

G.358E+83 

1.275E+84 

1.6486+85 

12.86 

13 1.16 

4.889E+83 

1.449E+84 

1.214E+85 

8.38 

14 4.33 6.4766+83 1.264E+84 

Least-squares line for q ■ a+delte-T 
a « 2.4325E+84 

b « 7.5888E-81 

NOTE: 14 data points were stored in 

NOTE: 14 X-Y pairs were stored in da 

1.6656+85 

‘b 

file VT894 

ta file 

13.17 


Ts 

<C) 

48.83 
48.82 
48.91 
48. G3 
48.93 

48.87 
48.93 

48.88 
48.78 
48.78 
48.G3 
49.81 

49.89 
49.81 
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NOTE: Proo^aw name : DRPALL 

Data taken by : COBB 

Tnie analyais done on file : VT1B1 
Tbie analyeii includes end'fin effect 
Tbernal conductivity • 231.8 (U/k.K) 

Inside dianeter, Oi ■ 12.7e (nn) 

Outside dianeter. Oo « 13.88 (nn) 

This analysis uses the QUARTZ THERHOnETER readmes 

Modified Petukhov-Popov coefficient « 2.S888 

Usme HEATEX insert inside tube 

Tube Enhancenent : RECTAN8ULAR FINNEC TUBE 

Tube naterial : ALUMINUM 

Pressure condition : UACUUM 

Nusselt theory is used for Ho 


Cl (based on 

Petukhov-Popov ) * t 

.9610 


Alpha 

(based 

on Nusselt 

(Tdel )> « 1 

.3090 


Enhancenent 

(q1 

« 1 

.896 


Enhancenent 

(Oel-T) 

« 1 

.616 


Data 

Uu 

Uo 

Ho 

Op 

Tcf 

t 

(n/s > 

(U/n“2-K) 

(U/n'‘2-K) 

(W/n*2 > 

(C) 

1 

4.32 

1.173E+04 

1.898E-«-04 

2.739E-t-05 

14.43 

n 

A 

3.79 

1.201E4-04 

2.1l3E->04 

2.800E-t-05 

13.25 

3 

3.23 

1.207E+04 

2.254E-t-04 

2.010E+05 

8.91 

4 

2.72 

1.1056-^04 

2.171E-^04 

2.0196-^05 

9.30 

5 

2.19 

1 .0316-^04 

2.231E-^04 

1.8145^05 

8.13 

6 

« 

« • O f 

9.310E•^83 

2.3056-1-04 

1.5836-^05 

6.87 

t 

1.15 

8.0296-^03 

2.540E-I-04 

1.3346-^05 

5.25 

8 

1.14 

8.1146-^03 

2.6246-^04 

1.332E-^05 

5.08 

9 

1 .67 

9.4086-^03 

2.34gE-*-04 

1.5346-^05 

6.53 

10 

2.19 

1.048E-«-04 

2.284E+04 

1.709E•^05 

7.48 

11 

^ • 7 1 

1.116E-t-04 

2.183E-«-84 

1 .7986+05 

8.24 

12 

3.23 

1.197E+04 

2.204E4-04 

1.8926+05 

8.59 

13 

3.75 

1.232E+04 

2.120E-«-04 

1.9226+05 

9.07 

14 

4.27 

1.2776-^04 

2.1036-^04 

1.9576+05 

9.31 


Least-squares line for q « a«delta-T*b 
a * 3.7884E+04 

b * 7.S0O8E-C1 


NOTE: 14 data points were stored in file VTIOI 
NOTE: 14 X-Y pairs were stored in date file 


Ts 

<C) 

48.95 

48.76 

48.45 

48.85 

48.76 

48.81 

48.93 

48.81 

48.75 

48.78 

48.78 

48.66 

48.85 

48.86 
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NOTE: Progran name : ORPALL 

Data takan by : COBB 

This analysis dona on fila : UTtBS 
This analysis includas and'fin affact 
Tharnal conductivity « 231.B <U/n.K) 

Ins Ida dianatar. Oi « 12.70 (nn) 

Outside dianatar, Oo « 13.B8 (nn> 

This analysis usas the QUARTZ THERflOtlETER raadings 

llodiflad Patukhov-Popov coefficient * 2.S8B6 

Using HEATEX insert inside tube 

Tube Enhancenent : RECTANGULAR FINNED TUBE 

Tube naterial : ALUfllNUfi 

Pressure condition : UACUUN 

Nusselt theory is used for Ho 


Cl (based on 

Petukhov-Popov) • 2 

.0284 



Alpha 

(based 

on Nusselt 

(Tdel)l • 1 

.2990 



Enhancenent 

(q) 

» 1 

.877 



Enhancenent 

(Del-T> 

« 1 

.604 



Data 

Uw 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

(n/s) 

(U/n‘2-K) 

(U/W2-K > 

(U/n'‘2) 

(C> 

(C 

1 

4.29 

1.256E<^a4 

2.034E404 

2.2736-405 

11.18 

48.74 

2 

3.76 

1.238E-i>e4 

2.11164-04 

2.147E-405 

10.17 

48.71 

3 

3.23 

1.183E+C4 

2.118E4-04 

2.0256-405 

9.57 

49.03 

4 

2.71 

1.124E4'e4 

2.1586-404 

1.888E-405 

8.75 

48.87 

S 

4,27 

1.288E-t-a4 

2.0966-404 

2.007E4-05 

9.58 

48.59 

6 

1.14 

8.874E+C3 

2.3896-404 

1.2446-405 

5.21 

48.64 

7 

3.75 

1.2426-^84 

2.1126-404 

2.0425-405 

9.67 

48.74 

8 

1.15 

8.219E+e3 

2.572E-404 

1.37164-05 

5.33 

48.58 

S 

3.24 

1.1696-^04 

2.086E-404 

2.13464-05 

10.23 

48.98 

ie 

1 .67 

9.4936-^03 

2.342E-404 

1.71864-05 

7.33 

48.61 

11 

2.19 

1 .0436^04 

2.220E-404 

1.9026-405 

8.57 

48.53 

12 

2.72 

1.109E-t-04 

2.132E-404 

2.0746-405 

9.73 

48.63 

13 

1.67 

9.426E-t-03 

2.31664-04 

1.7906-405 

r • r w 

46.94 

14 

2.2e 

1.0236-1-04 

2.146E-404 

1.9686-405 

9.17 

48.68 


Least-squares line for q ■ e*delte-T'‘b 
a « 3.7SE2E-«-B4 

b « 7.5aeoE-ei 


NOTE: 14 data points were stored in file UTie3 
NOTE: 14 X-Y pairs were stored in data file 
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NOTE*. PrograM rtAMs : ORPALL 

Data taktn by : COBB 

Thift Analykik don« on file : UTtll 
This analysii includok ond-fln offoct 
Thornal conductivity * 231.8 (U/n.K) 

Ink Ido dlonotor, 0l « 12.78 (nn> 

Outkide dionoter, Do « 13.88 <nn> 

Thlk analyklk ukCk the QUARTZ THERtlONETER roodlngk 

Modifiod Potukhov-Popov coofficiont * 2.5888 

Uking HEATEX inkort inside tube 

Tube Enhencenent : DEEP FILLET FINNED TUBE 

Tube Materiel : ALUMINUM 

Preskure condition : UACUUM 

Nukkelt theory is used for Ho 


Cl (based on PetukhovPopov) « 2.3848 

Alpha (based on Nusselt (Tdel)> « 1.1753 

Enhencenent (q) • 1.643 

Enhancement (Del-T) » 1.451 


Data 

Uu 

Uo 

Ho 

Qp 

Tcf 

Ts 

t 

(n/s) 

(U/m'2-K) 

(W/r.'2-K) 

(U/ri'2 > 

(C> 

(C) 

1 

4.31 

1.891E+84 

1.S73E+84 

2.471E+05 

15.71 

48.57 

2 

1.15 

7.862E+03 

1.977E+84 

1.735E+85 

8.78 

48.68 

3 

3.79 

1.127E+04 

1.733E+84 

2.560E4-05 

14.78 

48.66 

4 

1.68 

8.gi8E+83 

1.830E+84 

1.983E4-85 

18.84 

48.64 

5 

3.26 

1.888E-^84 

1.747E+84 

2.464E-^05 

14.18 

48.77 

6 

2.21 

9.734E+83 

1.783E+04 

2.179E+05 

• •» **•» 
t ^ 

48.74 

7 

2.73 

1.051E+84 

1.88864-84 

2.347E+85 

13.84 

48.64 

8 

2.73 

1.846E<*-84 

1.787E+84 

2.346E4-05 

13.13 

48.75 

9 

2.21 

9.788E+83 

1.880E4-O4 

2.183E+05 

12.13 

48.75 

18 

3.26 

1.878E+84 

1.728E+84 

2.425E+85 

14.89 

48.76 

11 

1 .68 

8.988E-t-83 

1 .852E4-84 

1.98554^85 

18.72 

48.74 

12 

3.79 

1.115E't'e4 

1.703E+84 

2.58254-85 

14.69 

48.71 

13 

1.15 

7.881E+83 

1.981E4-84 

1.732E4-85 

8.75 

48.93 

14 

4.31 

1.143E+04 

1.681E4-84 

2.558E4-85 

15.17 

48.78 

Least 

-squares 

line for q 

» a*delta-T' 

‘b 




a » 3.3489E+84 

b « 7.50085-81 


NOTE: 14 date points were stored in file UT111 
NOTE: 14 X-Y pairs were stored in data file 
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NOTE: ProQran nan« : ORPALL 

0*t« taktn by : COBB 

Thx» •n«lyti» dont on file : VTI31 
Thik knalykik includkk ond-fin offoct 
Thorntl conductivity * 231.8 (U/n.K) 

Intidt dionotor, Ol « 12.78 (mm) 

Outside dieneter. Oo • 14.38 (nn) 

Thik enelysls uses the QUARTZ THERtlOnETER reedingk 

Modified Petukhov-Popov coefficient ■ 2.5888 

Using HEATEX insert inside tube 

Tube Enhancement : SHALLOW FILLET FINNED TUBE 

Tube neteriel : ALUMINUM 

Pressure condition : VACUUM 

Nusselt theory is used for Ho 


Ci (based on 

Petukhov-Popov) • 2 

.2486 


Alpha 

(based 

on Nusselt 

(TdeD) > 1 

.0525 


Enhancement 

<q) 

» 1 

.418 


Enhancement 

(Del-T) 

» 1 

.299 


Data 

Uu 

Uo 

Ho 

Op 

Tcf 

t 

(n/s) 

(U/m*2-K) 

(U/m*2-K) 

(W/m*2) 

(C) 

1 

4.31 

1.829E<t-84 

1.582E-^84 

2.192E+85 

14.59 

2 

1.15 

7.262E+83 

1.788E+84 

1.519E-«-05 

8.49 

3 

3.78 

1.811E<^84 

1.534E+84 

2.1956+05 

14.30 

4 

1.68 

8.1226^83 

1.638E<i-84 

1.738E+05 

10.66 

5 

3.26 

9.769Et83 

1.S47E+84 

2.138E+05 

13.82 

6 

2.21 

8.828Ei-83 

1.588E‘»’84 

1.910E+05 

12.02 

7 

2.73 

9.386E<^83 

1.552E^84 

2.045E+05 

13.17 

8 

2.73 

9.313E+83 

1.554E<t'84 

2.041E+05 

13.13 

9 

2.21 

8.811E’«-83 

1.587E+84 

1.928E+05 

12.15 

18 

3.26 

9.756E+83 

1.546E-^84 

2.140E+05 

13.85 

11 

1.68 

8.147E+83 

1 .644E-^84 

1.787E+05 

18.87 

12 

3.78 

1.882E-^84 

1.5166^84 

2.2136+05 

14.59 

13 

1.15 

7.188E+83 

1.752E+84 

1.5646+05 

8.92 

14 

4.31 

1.823Et-84 

1.493E+e4 

2.243E+05 

15.02 

Least- 

squares line for q 

* a«delta-T 

'b 



a « ? . '?739E+84 

b * ?.£?'08E-81 


NOTE: 14 data points were stored in file UT131 
NOTE: 14 X-Y pairs were stored in data file 


Ts 

<C> 

48.66 
48.72 
48.79 

48.67 

48.74 
48.66 

48.75 
48.78 
48.72 
48.59 
48.89 

48.68 
48.93 
48.52 
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AVPiMDzi I. mcisnkzaTT AnLiszs 


When measuring physical quantity, the actual value is 
unKno%m. There will always be a difference between the 
measured value of the quantity and the actual value. The 
magnitude of the difference depends on the acciiracy of the 
measuring device and the level of experience of the operator 
of the device. Normally the error of measurement of a single 
calculation is rather small, however the error may grow in 
magnitude when combined with other meastired quantities in a 
given calculation. The estimation of the difference between 
the actual and the calculated or measured value is kno%m as 
the uncertainty of the obtained value. 

The actual uncertainty is similar to the actual value, if 
you know one you can determine the other. Kline and NcClintok 
[Ref. 38] developed a method to estimate the uncertainty in 
the obtained value. The method states for a quantity in some 
obtained value R, which is a function of several measured 
quantities (R « R(x^,X 2 ,X 3 ,... ,x„)), the uncertainty in R is 
given by the following relationship: 



(E.l) 
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wh«re: 


W|i « the uncertainty of the desired dependent variable 
x^,X 2 «...x„ « the eeasured independent variables 

.. .W^ « the uncertainties in the aeasured variables. 
A complete description of the uncertainty analysis is 
given by Georgiadis [Ref. 39]. The uncertainty program, 
UNCERTCOBB, was a revision of Nitrou's [Ref. 14] uncertainty 
analysis program. The program is listed in this Appendix 
along with random data point analysis. 
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1800! file NAnE : UNCERTCOBB 
100St REVISED : SEPTERBER 199Z 
1010! 

1015 COfI /Cc/ CIS) 

1020 OIK E(20) 

1025 OATR 273.15.2.5923E-2.-7.3933E-7.2.862SE-11 

1026 ORTft 1.9717E-15,-2.2i86E-19 
1035 REROCI*) 

10«0 PRINT 

1045 PRINTER IS 701 

1050 PRINT USING 'ISK.^ORTR FOR THE UNCERTAINTY ANALYSIS:**' 

1051 PRINT 
1055 BEEP 

1060 INPUT 'ENTER FILE NAKE* .Fll«0 

1065 PRINT USING "lSX."Fll* N«n»: ",12A*»Fil*S 

1070 BEEP 

1075 INPUT 'ENTER DATA SET NUKBER FOR UNCERTAINTY ANALYSIS*.Ids 
1080 BEEP 

1085 INPUT 'ENTER PRESSURE CONDITION <8»V.1»A) ' .Prc 
1090 Prt*Prc+1 
1095 BEEP 

1100 INPUT 'ENTER Ci'.Cl 
1105 ASSIGN 0File TO Files 
1110 ENTER 0File»IfO.Inr. 

1115 ENTER 0File»Od,Od.Od.Od 
1125 FOR 1»1 TO Ids 

1130 ENTER 0File»Bvol ,Banp ,Etp,Fn,Tci,Tco,Pvept ,Pv»p2 ,Et•> 

11311 PRINT Bvcl.B»np,E'tp.Fp,.T1 .T2,Pv»p1 ,Pvep2,E<*) 

1135 NEXT I 
1140 EmfsEIG) 

1145 IF Prc»l THEN 
1150 BEEP 

1155 PRINT USING *ISX ."Pressure Condition: Vacuum (kPa)"* 

1160 ELSE 

1165 PRINT USING " 15X ."Pressure Condition; Atmospheric <k.Pe)*" 
1170 END IF 
1180 Ihl*8 
1205 BEEP 

1210 PRINTER IS 1 

1211 PRINT ' SELECT INSIDE CORRELATION:* 

1212 PRINT * 0» SIEOER-TATE (DEFAULT)* 

1213 PRINT * 1» PETKHOV-POPOV* 

1214 INPUT Ihl 

1215 BEEP 

1216 IF lhi»0 THEN 

1217 BEEP 

1218 INPUT * SELECT REYNOLDS EXPONENT*.Rexp 
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1218 END IF 
1228 BEEP 

1222 PRINT USING •4X,-*S»Uct ««t«ri»I Cod«:**‘ 

1223 PRINT USING '6X.'*8 Coppar 1 St«lnlpft» St««l"‘ 

122S PRINT USING '6X.*-2 Rluninun 3 88:18 Cu>Nl*'* 

1238 PRINT USING ‘GX,**< Ti\»mu*k*“ 

1235 INPUT Itt 
1248 IF Ilt-8 THEN 
1245 BEEP 

1258 INPUT “SELECT <8»THIN. 1-THICK)“.Iwt 

1255 END IF 

1268 PRINTER IS 781 

1265 IF Itt»8 THEN 

12SG INPUT “SELECT OIRHETER <8«Sri. 1-f1EO. 2«L6)'.04 
I2B7 BEEP 

12B8 INPUT “SELECT FLUID <8-STERH. 1-R-113. 2»E6r,Itluld 
1278 Di«.8127 

1271 IF D»-8 THEN 

1272 01-.8127 

1273 0&«.ei388 

1274 ENC IF 

1275 IF 08-1 THEN 

1276 Do-.81438 

1277 END IF 

1278 IF 0»»2 then 

1278 0O-.8137 

1288 END IF 

1281 Kc-338.8 

1282 Okc-11.7 
1285 IF Iwt-8 THEN 
1238 Do-.81388 
1235 ELSE 

1388 Do*.81438 < Outside dieneter of test tube 

1385 ENC IF 

1318 END IF 

1315 IF Itt-1 THEN 

1328 Kc-14.3 

1325 0kc-.72 

1338 D1-.8I27 

1335 Do-.81388 

1348 END IF 

1345 IF Itt-2 THEN 

1358 Kc-231.8 

1355 Dkc-S.3 

1368 Do-.8I388 

1365 Di«.8127 

1378 END IF 
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1375 IF Itt»3 THEN 

13M Kc«S5.3 

1385 Dkc«1.27 

1398 0i*.8127 

1395 0O-.81388 

U88 END IF 

1485 IF Itt«4 THEN 

1418 Kc«18.9 

1415 0Wc«.95 

1428 0l«.81386 

1425 Do*.81585 

1438 END IF 

1435 Dl>.ei585 

1448 C2-.81S85 

1445 IF Itt«4 THEN 01«.81585 

1445! IF Itt«1 THEN 01«.81585 

1458 PRINTER IS 781 

1455 Ts«FNTvBv<Enn 

1456 TB«Ti-273.15 

1468 PRINT USIN6 •15X.**U»por T«np*r*ture * ** ,4D.DDD.** (DfcO 

C)-“lTs 

1465 PRINT USING 'ISX/'Uattr Flow Rate • *‘,3D.20’iFw 

1478 0tCl».8e5 

1475 Otco>.885 

1488 BEEP 

1485 Oenf <-1.86-6 

1498 Ot »«S0R( < {C< 1 )+2*C< 2 )*Enf •►3*C< 3 )»Enf *2+4*C< 4 )*Ertf “3 )*Da»if >*2 ) 

1495 T»(Tci+Tco>/2 ! FILM TEMPERATURE 
15881 uncertainty IN THE COOLING WATER 
1585 Ort,o».S ! ERROR IN WATER DENSITY 
1518 0nf«.8844 < ERROR IN MASS FLOW RATE 
1515 Rho«FNRhD(T) ! WATER DENSITY 

1528 Mf*(6.7489*Fn-»-13.827}/1888.l MASS FLOW RATE OF COOLING WATER 

1525! CORRECT MF FOR THE TEMPERATURE EFFECT 

1538 Mr»Mf*(1.8365-1.9GG44E-3*Tcl+S.252E-G*Tcl“2 >/l.8837 

1535 Al«(P!*Or2 >/4 ! TUBE INSIDE CROSS SECTION AREA 

1548 Odl>.888825 

1545 Oai-PI»Dl»Odl/2 I ERROR OF INSIDE TUBE CROSS AREA 
1558! COMPUTE THE WATER VELOCITY 
1555 Vu-Mf/lRho^Ai> ! WATER VELOCITY 

1568 PRINT USING *15X,**Water Velocity • '“,2.DO.** (w/ 

Vu 

1565! CORRECT OUTLET,WATER TEMP. FOR THE MIXING CHAMBER EFFECT 
1566 IF Itt«8 THEN 

1568 IF Inn«2 THEN Tco»Tco-<-3.99E-4+2.75E-3*Vw+1.45E-3*Vw‘'2+8.16E-S*Vw“3 > 

1578 IF Inr.*1 THEN Tco»Tco-<-G.44E-5+1.7lE-3*Vw+4.45E-4*Vu‘2+4.87E-5*Vw“3 ) 

1573 IF Inri«8 AND Vw>.5 THEN Tco«Tco-(-2.73E-4+1.75E-4*Vu+9.35E-4*Vu‘2-1.96E-S* 
Vw*3 5 
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tS7E EMC IF 

1577 IF Itt«4 THEN 'TITANIUr. TUBE 

1578 IF lT»n«® AND Uy>.5 THEN Tco«Tco-(-4.B2E>5-7.53E-**V»*+1.8eE-3*Ww“2-8.84E-5* 
Vhi‘3 > 

1579 IF Inn«3 THEN Tco«Tco-(2.B9E-449.74E-4«Uy+2.12E-3*U«*2-3.3lE-S*Uto*3) 

1581 END IF 

1584 IF Itt-1 THEN ! LFD KORODENSE TITANIUfl TUBE 

1585 IF Inn»« AND Vw>.5 THEN Tco«Tco-<-3.39E-4-H .88E-3*Uw+6.eiE-4*V».i*2*4. l3E-5« 
Uw*3) 

1585 IF Inn»3 THEN Tco»Tco-{2.«9E-4+9.2«E-4*Uu+1.89E-3*Ui.«*2-2.27E-5*Vi-‘3) 

1588 END IF 

1589 IF Inr,»3 THEN 

159® Tco*Tco-< 2.524E-5* 1.69BE-3*yw+7.1 1 E-3*U«*2-3.32E-3*Ui.i“3+8.555E-4*Ui«*4-7. 

37E-5»Uw*5) 

1591 END IF 

1593 T«(Tcl+Tco)*.5 'FILM TEHPERATURE 
1594! PRINT Tci 
1595! PRINT Tco 
159SI PRINT Inn 

1597! COMPUTE THE ERROR IN WATER UELOCITY 

1598 Ovu*Uiri*SQR<<Onf/Mf >*2+<Orf.o/Rho>'‘2+<Dai/Ai >'‘2 1 

1599! UNCERTAINTY IN T'.e xEYNOLOS NUMBER 

18®® Mw«FNMu<T) ! WATER VISCOSITY 

1585 Dnu«B.E-E ! ER^OR OF WATER VISCOSITY 

1618 Re»{Rho*Vv'*Oi//Mw 

1615 Dr««Re*SQR<<Orho/Rho)'2+<Dvy/Vy>'2+<Ddi/Dl )*2+<D«ta/Hw)*2) 

1628! uncertainty IN THE HEAT TRANSFERRED 
1625 Cpy«FNCpu(T) 

1638 0»Mf•'Tco-Tci>*Cpy 
1635 Dcpu«8 

1648 DQ»Q«SOR(<Owf/Mf )''2+< <0tco/<Tco-Tci)) r2+< (Dtcl/CTco-Tci ?) ;'2+<Dcpw/Cpy 1*2 

% 

/ 

1645! UNCERTAINTY IN THE HEAT FLUX 
1658 01«.®885 ! ERROR IN TUBE LENSTH 

1655 Ddo».888825 

166® L».13335 ! CONDENSING TUBE LENSTH 

1665 Qp»Q/<PI*Do*L) i HEAT FLUX 

1678 PRINT USING *15X,'-Heat Flux * '•,2.3DE,’“ <U/w*2>' 

“•»Op 

1675 PRINT USING "ISX ."•Tub«-wetal thernal conduc. « '•,3D.D,"" <W/w 

1888 PRINT USING •‘15X,”PatLhov-Popov constant- •■.2.4D"»Cl 
1685 Oqp«Qp*SQR< <Dd/C )*2+<Ddo/Oo >"2+<Dl/L >'2) 

1698 LMtd*<Tco-Tci //L06<(Ts-Tci //iTs-Tco)) 

1695 Uo-Qp/Lntd « OVERALL HEAT TRANSFER COEF. 

1788 A1«0t8*{Tcl-Tc&)/< <Ts-Tci )*< Ts-Tcc )*LOS« (Ts-Tcl )/(T6-Tcc.)) 5 
1785 A2«Btti/<<TB-Tci>*L06<tTs-Tci>/<Ts-Tco)>) 

1718 A3»Dtco/<(Ts-Tco )*L0G1(Ts-Tci )/(Ts-Tco >)> 
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17*.S Di«lJ«LRtb*S0R{Ar2+A2"2+M*2> 

’.720 Ouo>Uo«SQR( (Oqd/Op )*2<^(Clntd/Lntd)*2 ) 

1725 t1»fUi 

1730 T1-(T+273.1S)/273.1S 
1735 Kw»FNKw1T1> 

17*0 Rc-0. « INTERSCEPT PROP. SIEOER PROGRAM 

17*5 LI-^.050325 1 LENGTH OP UNPINNED LEFT PART OP TUBE 
1750 L2«.034325 1 LENGTH OF UNPINNED RIGHT PART OF TUBE 
1755 Pr-Cpw^Hw/Kw 
1760 nuy-PNnuwIT) 

17651 UNCERTAINTY OF INSIDE HEAT-TRANSFER COEFF. 

17GB Ct»1.0 
1758 IF lhi«0 THEN 

1775 Hl«<Kw/0i )*<Cl«R**R«xp«Pr*.333*Cf+Ac) 

1776 END IF 

1777 IF Ihi-1 THEN 

1778 Ep»i»<1.82*L6T<R» )-1.64 >*<-2 ) 

1773 Ppkl«1.0+1.34*Epsi 

1780 Ppk2«11.7+1.8+Pr*<-1/3) 

1781 Ppl»\Ep8i/8 )*Re*Pr 

1782 Pp2*<Ppkl+Ppk2*<Epsi/8)*.5*<Pr'‘<2/3>-1 >> 

1783 Hi»<Kw/Di>*<Pp1/Pp2> 

1784 END IF 

1786 Oti«Q/<PI*Dl*(L+L1+Fe1+L2*F«2)*Hi) 

1787 CfC*(Muu/FNt1uu<UDH))\}4 
1730 IF A8S<<Cfc-Cf>/CfC».01 THEN 
1735 Cf«<Cf+Cfc)*.S 

1800 GOTO 1775 
1805 END IF 
1810 Pl«PI*<Di+01 > 

1815 B1»<01-Dl )*PI*lDi+D1 >+.5 
1820 M1«1Hl+Pl/<Kc*B1>>*.5 
1825 P2»PI*<Di+02) 

1830 B2«<D2-0i )*PI*<Di+D2>*.5 
1835 K2«(Hi*P2/<Kc*B2)>''.5 
1840 F»1«FNT*r.h1f11*L1 )/<l11*Ln 

1845 F62»FNT»r.h<f12*L2 )/<n2*L2) 

1850 Otc«0/<PI*0i»<L+L1*Fe1+L2«Fp2)+Hj ) 

1855 IF ABS<lDtc-Dti>/Otc)>.01 THEN 1775 

1860 Dku«.0010 1 ERROR IN WATER THERMAL CONDUCTIVITY 

1855 IF Ifluid<2 THEN Dcl«.002 ! ERROR IN SIEDER-TATE COEFFICIENT 

1866 IF Ifluld-0 AND Oi«0 THEN Oci-.O03 

1867 IF Ifluid«2 THEN Oci>.O05 

1870 Opr«.0S ! ERROR IN PRANDTL NUMBER 
1875 Dcf«8.E-6 
1830 A4«.14*Dcf/Cf 

1885 Dhi»Hi*SQRl(Dkw/Ku)''2+<Ddl/Oi >*2+< .S+Drt/Re >‘2+< .333+0pr7Pr >“2+<Dci/Ci )"2+ 
A41 
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1898! UNCERTAINTY OF OUTSIDE HEAT-TRANSFER COEFF. 

1895 Rw>0o*L06(0c/0l )/<2*Kc) ! WALL RESISTANCE 

1988 Mo«1/((1/Uo )-< Do«L/(Dl•<L+L1•F»1♦L2*F«2 >*Hi> >-Ry) 

1985 Dru«Rw»S0R< <Odo/Oo )*2+< Dkc/Kc >*2+< Ddo/(Do*L06(Do/Oi ) > )'2+{Odl/<Ci*L06< Oo/C 
i‘/>>*2) 

1918 A5»1/Uo-Rw-<Do»L/<0l«<L+L1*F*l+L2*F*2)*Hl)> 

1915 A6>0uo/(Uo''2*A5) 

1928 A7-0rw/A5 

1925 A8«<tOo/<Ol*Hl}>«(OAi/Hl))/A5 

1938 PRINT 

1935 0ho»Ho*S0R(A6‘2-^A7*2-^A8‘2) 

1948! CALCULATE THE X UNCERTAINTY IN Ho 
1945 Prho*Oho»188/Ho 

1958! CALCULATE THE X UNCERTAINTY IN REYNOLDS NUHBER 
1955 Prre»Orft*188/R* 

1968! CALCULATE THE X UNCERTAINTY IN HASS FLOW RATE 
1965 Pr«f«Dnf*188/Hf 

1978! CALCULATE THE X UNCERTAINTY IN HEAT TRANSFER 
1975 Prop*OQP*188/Qp 

1988! CALCULATE THE X UNCERTAINTY IN LHTD 
1985 Prlfttd“Dl«td»188/Lntd 
1998! CALCULATE THE X UNCERTAINTY IN Rw 
1995 Prru»0ru*188/Rw 

2888! CALCULATE THE X UNCERTAINTY IN OVERALL HEAT TRANSFER COEF. 

2885 Pruo«0uo*188/Uo 

2818! CALCULATE THE X UNCERTAINTY IN INSIDE HEAT TRANSFER COEFF. 

2815 Prhi«0hi*18e/Hi 
2828 PRINT 

2825 PRINT USING ‘ISX ,*‘UNCERTAINTY ANALYSIS:'"’ 

2838 PRINT 

2835 PRINT USING ’15X.*" VARIABLE PERCENT UNCERTAINTY""" 

2848 PRINT 

2845 PRINT USING ‘15X,*"Ha65 Flot- R*t«. Hd " ,Z.2D.‘:Prinf 

2858 PRINT USING ‘ 15X .“Rtynolds Number , Re ’' ,2.2D ." jPrre 

2855 PRINT USING ’15X.”Heet Flux, q ” .DD.2D," iPrqp 

2868 PRINT USING ’ 1SX ,”LoO“««aT.-Tem Oiff, LHTD ’" .DD.20’iPr lmtd 

2865 PRINT USING ’15X.”Well Resistence, Ru "’ ,DD.2D:Prru 

2878 PRINT USING ‘15X,"‘0yerell H.T.C. . Uo ” ,DD.2D ."iPruc 

2875 PRINT USING "15X "Weter-Slde H.T.C. , Hi "’ .3D.2DiPrhi 

2888 PRINT USING ’1SX .""Vapor-Side H.T.C., Ho ” ,3D.2D ."iPrho 

2885 END 
2898 OEF FNHuulT) 

2895 A*247.8/<T+133.15) 

2188 Huu«2.4E-5«18‘'A 

2185 RETURN Huw 
2118 FNEND 
2115 DEF FNTanh(X) 
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212* P-EXP{X> 

2t25 0>EXP<->X) 

215® T*nh»<P-0)/<P+Q> 

2135 RETURN Tanh 
2UC FNENO 
2145 DEFFNKu(Tl) 

215® Kw—.92247+T1•< 2.8395-T1•<1.8®e7-T1•(.52577-.®7344»T1))1 

2155 RETURN Ku 

216® FNENO 

2165 DEF FNMulT) 

217® R»247.8/<T+133.15) 

2175 11w«2.4E-5*l®'‘A 
218® RETURN flu 
2185 FNEf^C 
219® DEF FNRhotT) 

2195 Rho«999.52946+T*<.®l269-T*<5.482S13E-3-T*l.234147E-5)> 

22®® RETURN Rho 
22®5 FNENO 
221® OEF FNCpu<T'/ 

2215 Cpu«< 4.2112®858-T*< 2.26826E-3-T*(4.42361E-5+2.71428E-7*T >))• 108® 

222® RETURN Cpu 

2225 FNENO 

223® DEF FNTvBv<Ei».f ) 

2235 COM /Cc/ C<5) 

224® T-C< 8) 

2245 FOR I»1 TO S 
225® T«T+C<I >*Ei*if'I 
2255 NEXT I 
226® RETURN T 
2265 FNENO 
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DftTA FOR THE UNCERTAINTY ANALYSIS: 


File Nene: 

Pressure Conditions 
Vapor Tenperature 
Water Flow Rate <X) 
Water Velocity 
Heat Flux 
Tuoe-netal thermal 


AT* 13 

Atmospheric <kPa) 

> S9.8E2 

> 88.M 

« 4.ZE 

• 1.22SE+eE 

conduc. * 398.8 


Petkhov-Popov constant* 3.1E1E 


(Dap C) 

(m/s ) 
(W/n*2) 
(W/n.K > 


UNCERTAINTY ANALYSIS: 
VARIABLE 

Hass Flow Rate. Md 
Reynolds Nunber, Re 
Heat Flux. q 
LoB“Nean-Ten Oiff, LMTD 
Wall Resistance, Ru 
Overall H.T.C.. Uo 
Water-Side H.T.C., Hi 
Vapor-Side H.T.C., Ho 


PERCENT uncertainty 

8.82 
1 .28 
.97 
.22 
4.24 
.99 
1.53 
E4.58 
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DftTft FOR THE UNCERTAINTY ANALYSIS: 


Flic Name: 

Prcccurc Condition: 

Uapor Tcnpcraturc 
Water Flou Rate <Z) 

Water Uelocity 
Heat Flux 

Tube-neta1 thernal conduc. 
Petkhov-Popov conetant* 3 


AT* 13 

Atnospberic (kPal 
iee.969 


70.90 

3.74 

1 .ISOE-^OE 
339.8 


IfilE 


lOep C) 

<n/B > 
(W/n*2 ) 
(W/n.K) 


UNCERTAINTY ANALYSIS: 

VARIABLE PERCENT UNCERTAINTY 


Nass Flou Rate, fid 

9.34 

Reynolds Nunber, Re 

1 .37 

Heat Flux, Q 

1 .OE 

LoQ-flean-Ten Oiff, LflTO 

.21 

Wall Resistance, Ru 

4.24 

Overall H.T.C., Uo 

1 .08 

Water-Side H.T.C., Hi 

1.19 

Vapor-Side H.T.C. , Ho 

22.71 
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OATft FOR THE UNCERTAINTY ANALYSIS: 


File Nene: AT®13 

Preesure Condition: Atnoepheric (kPe) 


Vapor Tanperature 
Water Flow Rata <t) 

Water Velocity 
Heat Flux 

Tube-natal tbarnal conduc. 
Petkhov-Popov constant* 3 


m 

99.969 

(Oao C) 

m 

se.®0 


m 

2.70 

(n/s) 

« 

1.092E‘^0E 

(W/n*2 > 

s 

161B 

390.6 

(W/n.K) 


UNCERTAINTY ANALYSIS: 

VARIABLE PERCENT UNCERTAINTY 


Hass FIou Rata, Hd 

1.29 

Reynolds Nunbar. Re 

1.62 

Heat Flux, q 

1.38 

LoQ-Maan-Tan Diff, LHTO 

.16 

Wall Resistance, Rw 

4.24 

Overall H.T.C., Uo 

1.39 

Water-Side H.T.C.. Hi 

1.37 

Vapor-Sida H.T.C., Ho 

8.11 
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DATA FOR the UNCERTAINTY ANALYSIS: 


Fil* Nine*. AT®13 

Pressure Condition: Atnosoheric (kPe) 

Uepor Tenpereture • 1M.014 <0e6 C) 

Water Flow Rate <X) ■ 2®.®0 

Water Uelocity • '-'S 

Heat Flux • 7.864E+0S (W/n*2) 

Tube-natal theme 1 conduc. “ 39*.8 <W/n.K) 

Petkhov-Popov constant* 3.1616 


UNCERTAINTY ANALYSIS: 


UARIABLE 

PERCENT uncertainty 

hass Flow Rate, tid 

3.®5 

Reynolds Number, Re 

3.2® 

Heat Flux. q 

3.®9 

LoQ-Mean-Ten OltT, LtlTD 

.®9 

Wall Resistance. Rw 

4.24 

Overall H.T.C., Uo 

3.®9 

Water-Side H.T.C. . Hi 

2.6® 

Vapor-Side H.T.C., Ho 

7.7® 
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DATfS FOR THE UNCERTAINTY ANALYSIS 


Flic Name: AT061 

Pressure Condition: AtnospAeric <kPe) 


Vepor Tenpereture • 99.994 

Weter Flow Rete (X) • 99.9® 

Ueter Uelocity • 4.27 

Heel Flux ■ 7.277E+95 

Tube-netel thernel conduc. ■ S5.3 


PetKhov-Popov constent* 2.7938 


(Deo C) 

<n/s) 
<W/n*2) 
<U/a.K) 


UNCERTAINTY ANALYSIS'. 


UARIABLE PERCENT UNCERTAINTY 


flass Flou Rate, tid 9.82 
Reynolds Number, Re 1>25 
Heat Flux , Q '*9' 
Los-Mean-Tem Olff, LMTD .38 
Wall Resistance, Ru 3.78 
Overall H.T.C. , Uo 1.98 
Water-Side H.T.C., Hi >.99 
Vapor-Side H.T.C., Ho 4.98 
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DATA FOR THE UNCERTAINTY ANALYSIS 


Flic Nam: ATOEl 

PrAktur* Condition: AtnokpNAric (kPo) 
UApor TonpArAturA • 98.727 

UAter Flow Rot A (X> * 29.99 

WAtAr UAlocity • 1.1S 

HAAt Flux • S.489E+95 

TubA-nAtAl IhArnAl conduc. ■ S5.3 

PAtkhov-Popov constAnt* 2.7938 


(Oaq C) 

<n/fc) 

<U/n*2 > 
(U/n.K) 


UNCERTAINTY ANALYSIS: 
VARIABLE 

Ho&k Flow RaIa, fid 
RAynoldk NunbAr, Ra 
HaaI Flux. Q 
LOQ-flAAn-TAn Dlff, LfITO 
UaH RASlktAncA, Rw 
OvArAll H.T.C.. Uo 
UktAr-SldA H.T.C., Hi 
VAPOr-SldA H.T.C. , Ho 


PERCENT UNCERTAINTY 

3.92 

3.15 

3.9S 

.14 

3.78 

3.97 

2.55 

12.27 
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DATA FOR THE UNCERTAINTY ANALYSIS: 


Fll» N»ne: AT®63 

Pr«8Burt Condition: Atnoipheric <kP«) 


Uopor Tonporature ■ 99.87® 

Uatar Flow Rata • 8®.®® 

Uatar Ualocity ■ *.29 

Haat Flux • 7.<52E+®5 

Tuba-natal tharnal conduc. * 55.5 


Patkhov-Popov constant* 2.5534 


(Oao C) 

(n/s) 
<W/n*2> 
tU/n.K) 


UNCERTAINTY ANALYSIS: 
VARIABLE 

Mass Flow Rata, tid 
Reynolds Nunbar, Ra 
Haat Flux, Q 
Loo-flaan-Ten Diff, LflTO 
Wall Resistance, Rw 
Overall H.T.C., Uo 
Water-Side H.T.C., Hi 
Uapor-Side H.T.C., Ho 


PERCENT UNCERTAINTY 

®.81 
1 . 2 ® 

1 . 0 ® 

.37 
3.78 
I .87 
1.05 
4.76 


218 











DATA FOR THE UNCERTAINTY ANALYSIS: 

Flit Nm*: AT063 

PrMkurt Condition: Atnoiphoric <liP«) 

Uopor Tonporoturt • 1M.f99 <DoB C> 

Uotor Flow Roto <X) • 79.t® 

Uotor Uolocity • S.77 <n/») 

Moot Flux « 7.3l5E+eS <U/n*2> 

Tubo-notol thornol conduc. • 55.3 <H/«.K) 

Potkhov-Popov conotont* 2.5534 


UNCERTAINTY ANALYSIS: 
UARIABLE 

Noio Flow Roto. rid 
Roynolds Nunbor, Ro 
Hoot Flux, q 
Loo-Moon-Ton Olft, LHTO 
Uoll Rooistonco, Rw 
Ovoroll H.T.C., Uo 
Wotor-Sldo H.T.C., HI 
Vopor-Sldo H.T.C., Ho 


PERCENT uncertainty 

e.93 
1.28 
1.88 
.33 
3.78 
1.13 
1.11 
6.31 
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DATft FOR THE UNCERTAINTY ANALYSIS: 


Flic Name: ATOE3 

PrMBurt Condition: Atnoophoric (fcP») 


Uopor Tonporaturo ■ iM.fll 

Hatar Flow Rata <Z) * 50.00 

Watar Ualocity ■ 2.72 

Haat Flux • 6.835E+0S 

Tuba-natal tharnal conduc. * 55.3 


Patkhov-Popov constant* 2.5534 


(OaQ C) 

(N/a) 
<W/n*2) 
(U/n.K) 


UNCERTAINTY ANALYSIS: 

VARIABLE PERCENT UNCERTAINTY 


flass Flow Rata, fid 

1.28 

Reynolds Nunbar, Ra 

1.56 

Haat Flux, 0 

1.39 

LoQ-flaan-Tan Oiff, LfITO 

.26 

Uall Rasistanca, Ru 

3.78 

Overall H.T.C.. Uo 

1 .41 

Uatar-Sida H.T.C., Hi 

1.32 

Vapor-Slda H.T.C., Ho 

22.05 
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FOR THE UNCERTAINTY ANALYSIS: 


Fll* Nanc: ATi63 

Praasura Condition: Atnoapharic <kPa) 


Vapor Tanparatura • 99.928 

Uatar Flow Rata <*> • 29.99 

Matar Valocity • >.1S 

Haat Flux ■ S.289E^9S 

Tube-natal tharnal conduc. ■ 55.3 


Patkhov-Popov constant* 2.5534 


(Oac C> 

(n/s) 
<W/n*2 ) 
<W/n.K) 


uncertainty ANALYSIS: 

variable percent uncertainty 


Hass Flow Rata, fid 

3.94 

Reynolds Nunbar. Ra 

3.17 

Haat Flux, o 

3.98 

LoQ-Maan-Tan Oift, LflTO 

.14 

Wall Resistance, Ru 

3.78 

Overall H.T.C., Uo 

3.98 

Water-Side H.T.C., Hi 

2.58 

Vapor-Slda H.T.C., Ho 

13.12 
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DATft FOR THE UNCERTAINTY ANALYSIS: 


(Oaq C> 

(n/S > 
< W /«*2 ) 
(U/n.K) 


UNCERTAINTY ANALYSIS: 


UARIABLE 

PERCENT uncertainty 

tIosK Flow Roto. Hd 

8.81 

Reynolds Nunbor, Re 

1 .28 

Hoot Flux, 0 

1.88 

LoQ-Moon-Ten Olff, LMTO 

.54 

Uoll Resistonce, Ru 

5.87 

Overoll H.T.C., Uo 

1.21 

Uoter-Side H.T.C., Hi 

1.85 

Uopor-Side H.T.C.. Ho 

8.37 


Fll* H»n%: ATf94 

Pr*i»ur« Condition: Atnoophorie <kPo> 


Uopor Tonporoture • 99.986 

Uotor Flow Roto <X> ** 8®.88 

Uotor Uoloclty • **28 

Hoot Flux • 5.183E+8S 

Tubo-notol thornol conduc. » 14.3 


Potkhov-Popov conotont* 2.8961 
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MTft FOR THE UNCERTAINTY ANALYSIS: 


FlU Nan«: AT094 

Pr«»iurt Condition: Atnoiphoric <kP*) 
Uopor Tonporatunc ■ 99.924 

ttator Flow Rato <X) ■ 50.00 

Uatar Ualocity ■ 2.72 

Haat Flux • 4.8t3E+05 

Tuba-natal tharnal conduc. » 14.3 

Patkhov-Popov eonatant* 2.0961 


(Dao C) 

(n/t) 
<«/n*2 ) 
t«/n.K) 


UNCERTAINTY ANALYSIS: 
VARIABLE 


PERCENT UNCERTAINTY 


Malt Flow Rate, Md 1.28 
Raynolds Nunbar. Re 1.56 
Heat Flux. 0 

LoQ-flean-Ten Olff, LHTD .36 
Wall Resiatance. Ru 5.87 
Overall H.T.C. , Uo 1•♦6 
Water-Side H.T.C., Hi 1.32 
Vapor-Slde H.T.C., Ho 19.88 
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O^TA FOR THE UNCERTAINTY ANALYSIS: 


Flic Ncnc: ATBSC 

Prctiurc Condition: Atnocphc 
Ucpor Tempercturc 
Ueter Flow Rete <t) 

Ueter Velocity 
Heet Flux 

Tube~netel thernel condue. 
Petkhov-Popov conetentB 2.0961 


1C (kPe) 
99.806 
20.00 
1.15 

3.840E<^05 

U.3 


<OeQ C) 

(n/s) 
<W/n“2 ) 
(W/n.K) 


UNCERTAINTY ANALYSIS: 

VARIABLE PERCENT UNCERTAINTY 


Neii Flow Rete. fid 

3.04 

Reynolds Nunber, Re 

3.16 

Heet Flux, 0 

3.08 

LOB"f>een-Ten Oiff, LfITO 

.19 

Uell Resistence, Ru 

5.87 

Overall H.T.C., Uo 

3.08 

Water-Side H.T.C., Hi 

2.57 

Vapor-Side H.T.C., Ho 

23.75 
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OATft FOR THE UNCERTAINTY ANALYSIS: 


AT1«1 

Atnospheric (kP«> 

• lee.eei 


Fll« Nanc: 

Pratsure Condition: 

Uapor Tanparaturt 
Uatar Flow Rata <X) 

Uatar Ualocity 
Haat Flux 

Tuba^'ratal tharnal conduc. 
Patkhov-Popov constant* 2.3854 


88.88 

4.27 

S.614E4-85 

231.8 


<DaD C) 

(n/B) 
iW/n*2 > 
(U/n.K ) 


UNCERTAINTY ANALYSIS: 
VARIABLE 

Mass Flow Rata, Nd 
Raynolds Nunbar, Ra 
Haat Flux, q 
LoO“f1o»n-TaPi Oiff, LHTO 
Wall Rasistanca, Ru 
Ovarall H.T.C., Uo 
Watar-Side H.T.C. , Hi 
Vapor-Sida H.T.C., Ho 


PERCENT UNCERTAINTY 

8.82 
1.25 
.98 
.29 
5.81 
1 .82 
1.18 
7.43 
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DATA FOR TH£ UNCERTAINTY ANALYSIS: 


File Nane: AT10J 

Preeeure Condition: Atnospheric (kPe> 

Uepor Temperature • 100.UB 

Water Flow Rate <X) • 50.®® 

Water Velocity • 2.72 

Heat Flux • 8.e34E+05 

Tube-netal tbernal conduc. • 231.8 

Petkfiov-Popov constant* 2.3854 


(Oeg C} 

(m/s) 
(W/m*2 > 
(W/m.K) 


UNCERTAINTY ANALYSIS: 
VARIABLE 

Mass Flow Rate, Md 
Reynolds Number. Re 
Heat Flux, q 
LoB“Mean-Tem Oiff, LMTD 
Wall Resistance, Ru 
Overall H.T.C.. Uo 
Water-Side H.T.C. . Hi 
Vapor-Side H.T.C., Ho 


PERCENT UNCERTAINTY 

1.28 
1 .57 
1.38 
.20 
5.01 
1 .39 
1.33 
47.40 








DATA FOR THE UNCERTAINTY ANALYSIS: 


File Nenc: VT094 


Prtiiure Condition: Vacuum (kPe) 


Vapor Temperature • 48.927 

Mater Flow Rate IS) • 58.88 

Water Velocity • 2.75 

Heat Flux • 1.5I2E+85 

Tube-metal thermal conduc. » 14.3 


Petkhov-Popov conitant* l.9238 


(Deo C) 

(m/t) 
<U/m*2) 
(U/m.K) 


UNCERTAINTY ANALYSIS: 
VARIABLE 

fiasB Flow Rate, Hd 
Reynolds Number. Re 
Heat Flux. Q 
LoQ-tlaan-Tem Oiff. LMTO 
Mall Resistance. Ru 
Overall H.T.C.. Uo 
Water-Side H.T.C. . Hi 
Vapor-Slde H.T.C.. Ho 


PERCENT UNCERTAINTY 

1.27 
1.49 
1.78 
1.17 
5.87 
2.13 
1.2E 
12.84 
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DATA FOR THE UNCERTAINTY ANALYSIS: 


File Nene: UTe94 


Preiiure Condition: Uecuun <kPe 
Uepor Tempereture ■ 

Ueter Flow Rete (X) * 

Ueter Uelocity ■ 

Heet Flux * 

Tube-net el t hemal conduc. * 
Petkhov-Popov conetent* 1.9238 


48.822 

28.80 

1.16 

1.194E+85 
14.3 


(Oeo C) 

(n/s > 
<W/n*2) 
(U/n.K) 


UNCERTAINTY ANALYSIS: 
VARIABLE 

Mass Flow Rate. fid 
Reynolds Number. Re 
Heat Flux, q 
LOQ-flean-Tem Olff, LfITO 
Uall Resistance. Ru 
Overall H.T.C., Uo 
Water-Side H.T.C. . Hi 
Vapor-Side H.T.C., Ho 


PERCENT UNCERTAINTY 

3.81 

3.11 

3.18 

.62 

5.87 

3.17 

2.52 

68.75 
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OftTA FOR THE ONCERTRINTY ANALYSIS: 


File Nane: VTe94 

PrtsBure Condition: V/ocuun (kPa) 


Vapor Tanparalura • 49.091 

Uatar Flow Rata <X> * 20.00 

Uatar Valocity * 1*16 

Haat Flux • 1.210E+05 

Tuba-natal tharnal eonduc. * 14.3 


Patkhov-Popov conatant* 1.9238 


(Oao C) 

(n/a) 
1H/n*2 > 
(U/n.K) 


UNCERTAINTY ANALYSIS: 

VARIABLE PERCENT UNCERTAINTY 


Nasa Flou Rata, fid 

3.01 

Raynolda Nunbar, Ra 

3.11 

Haat Flux, Q 

3.10 

Loo-Maan-Tari Diff, LfITO 

.62 

Wall Rasiatanca, Ru 

5.87 

Ovarall H.T.C., Uo 

3.16 

Watar-Slda H.T.C., Hi 

2.52 

Vapor-Sida H.T.C., Ho 

61.42 
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DATA FOR THE UNCERTAINTY ANALYSIS: 


File Name; UTieS 

Preesure Condition: Vacuun <kPa) 


Uapor Tanperature ■ *8.738 

Water Flow Rata <X> ■ 8*-®« 

Water Velocity ■ 

Heat Flux • 2.27*E+e5 

Tube-netal tharnal conduc. ■ 231.8 


Petkhov-Popov constant* 2.8284 


(Doq O 

(n/s) 
<W/n*2) 
tW/n.K) 


uncertainty ANALYSIS: 
VARIABLE 

Mass Flow Rate, Nd 
Reynolds Nunber, Re 
Heat Flux, Q 
LO0“tto*’^"Ten Oiff, LMTO 
Wall Resistance. Ru 
Overall H.T.C., Uo 
Water-Side H.T.C. , Hi 
Vapor-Slde H.T.C., Ho 


PERCENT UNCERTAINTY 

8.81 
1.28 
1.53 
1.21 
5.81 
1.95 
1.8G 
7.43 
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OATft FOR THE UNCERTAINTY ANALYSIS: 


File Ne«e: VTJ®3 

Pressure Condition: Uecuun <k.Pe) 


Vapor Tenperature • *8.628 

Water Flow Rate (X) * 50.88 

Water Velocity • 2.72 

Heat Flux • 2.074E+05 

Tube-netal tbarnal conduc. * 231.8 


Petkhov-Popov constant* 2.028* 


(Dec C} 

(n/s) 
(W/«*2 > 
(W/n.K ) 


UNCERTAINTY ANALYSIS: 
VARIABLE 

Nass Flow Rate. Hd 
Reynolds Number. Re 
Heat Flux. q 
Loo~Nft»Ti“Ten Dlff. LMTD 
Wall Resistance. Ru 
Overall H.T.C.. Uo 
Water-Side H.T.C., Hi 
Vapor-Side H.T.C.. Ho 


PERCENT uncertainty 

1.28 
1.55 
1.68 
.84 

5.81 

1.81 
1.32 

23.78 
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FOR THE UNCERTAINTY ANALYSIS: 


Fll* N«n«: VT1®3 

Prtftturt Condition: Uocuun (kFo) 


Vapor Tonporaturo 
Watar Flow Rata (X) 

Uatar Valocity 
Haat Flux 

Tuba-natal tharnal eonduc 
Petkhov-Popov constant« 


> 48.657 

« 2e.e« 

• 1.14 

» 1.244E485 

- 251.8 

2.«284 


<0aQ C) 

(n/B) 
(W/n*2) 
(U/n.K) 


UNCERTAINTY ANALYSIS: 
VARIABLE 

NaSB Flow Rata, fid 
RaynoldB Nunbar, Ra 
Haat Flux, q 
Loo^Waan-Tan Oiff, LMTO 
Wall Rasistanca. Rw 
Ovarall H.T.C., Uo 
Uatar-Sida H.T.C., Hi 
Vapor-Sida H.T.C., Ho 


PERCENT UNCERTAINTY 

5.85 

5.19 

5.14 

.69 

5.81 

5.28 

2.59 

18.77 


232 










DftTft FOR THE UNCERTAINTY ANALYSIS: 


Fil* Nane: ATlft 

Prtsfturc Condition: Atnooohoric (kPo) 


Vapor Tanparatupo * tM.IBS 

Uatar Flow Rato it) * 2C.M 

Uatar Velocity * 1.15 

Heat Flux • 6.394E^0S 

Tube-natal thernal conduc. * 251.8 


Petkhov-Popov constant* 2.38S4 


(Dap C> 

(n/s > 
<U/n*2 > 
(U/n.K) 


UNCERTAINTY ANALYSIS: 
VARIABLE 

HasB Flow Rate, tid 
Reynolds Nunber. Re 
Heat Flux, Q 
Loo-fleari-Ten Oiff, LfITO 
Uall Resistance, Ru 
Overall H.T.C.. Uo 
Water-Side H.T.C., Hi 
Vapor-Slde H.T.C. , Ho 


PERCENT UNCERTAINTY 

3.84 

3.18 

3.88 

.12 

5.81 

3.88 

2.58 

18.78 
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DATA FOR THE UNCERTAINTY ANALYSIS*. 

Fait Ntnt: VT®11 

PrttBurt Condition: Uacuun (kPt) 


Utpor Ttnptrtturt * 

Utltr Flou Rote <X) • 

48.E7S 

ee.M 

(OtD C) 

Utter Velocity ■ 

4.32 

(n/B ) 

Meet Flux * 

3.48SE4e5 

<W/n*2) 

Tufae-netel thernel conduc. • 

Petkhov-Popov conitent* 2.S662 

598.8 

(U/n.K) 


UNCERTAINTY ANALYSIS*. 


VARIABLE 

PERCENT UNCERTAINTY 

tlass Flow Rate, lid 

8.81 

Reynolds Nunber, Re 

1.14 

Heat Flux, Q 

1.22 

L0B“N6an-Ten Oiff, LflTO 

.88 

Uall Resistance, Rw 

4.24 

Overall H.T.C., Uo 

1 .46 

Uater-Side H.T.C., Hi 

1.88 

Vapor-Side H.T.C., Ho 

18.92 
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DATA FOR THE UNCERTAINTY ANALYSIS: 


File Nine: 

Presiure Condition: 

Uepor Tenpereturc 
Water Flow Rate <X> 

Water Uelocity 
Heat Flux 

Tube-netal thernal conduc. 


UT®11 

Uacuun (kPa) 

48.541 

4e.f« 

2.21 

2.84SE4e5 
398.8 


Petkhov-Popov constant* 2.9862 


<Oeo C) 

<b/s > 
<W/n*2 ) 
<W/n.K> 


UNCERTAINTY ANALYSIS: 
VARIABLE 

Hass Flow Rate, Hd 
Reynolds NunPer, Re 
Heat Flux, q 
LoO“Nean-Ten Oitf, LMTO 
Wall Resistance, Ru 
Overall H.T.C., Uo 
Water-Side H.T.C., Hi 
Vapor-Side H.T.C., Ho 


PERCENT UNCERTAINTY 

1.58 
1.77 
1.71 
.58 
4.24 
1.79 
1.47 
15.83 
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OATft FOR THE UNCERTAINTY ANALYSIS: 


Flic Ncnc: UT063 

Prcccurc Condition: Uccuun <kPc) 


Ucpor Tcnpcrcturc “ *8.775 

Wctcr Flow Rctc <X> • 88.W 

Uctcr Velocity • *.32 

Meet Flux ■ 2.278E+85 

Tubc-nctcl thcrncl conduc. « 55.3 


Petkhov-Popov conctent* 2.*1*6 


(Deo C) 

<n/B > 
<U/n*2 > 
(U/n.K) 


UNCERTAINTY ANALYSIS: 


VARIABLE 


PERCENT UNCERTAINTY 


Nace Flow Rate, Hd 
Reynolds Nunber, Re 
Heat Flux, q 
LoQ-Hean-Ten Oltf, LflTO 
Uall Resistance, Ru 
Overall H.T.C.. Uo 
Uater-Side H.T.C., Hi 
Vapor-Side H.T.C., Ho 


8.81 
1 . 1 * 
1.53 
1.22 
3.78 
1 .96 
1.88 
6.33 
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DATA FOR THE UNCERTAINTY ANALYSIS: 


File Neinc: UTOEZ 


Pressure Condition: Uacuun (kPe) 


Uepor Tenpereture « 
Water Fiou Rate (X> * 
Water Uelocity > 
Heat Flux > 
Tute-netal thermal conduc. « 
Petkhov-Popov constant* 2.4146 


48.759 
78.M 
3.79 

2.233E-«-e5 

55.3 


(Dec C > 

<n/s > 
(W/n*2 > 
(W/r..K ) 


UNCERTAINTY ANALYSIS: 
VARIABLE 

Mass Flow Rate, Nd 
Reynolds Nunter, Re 
Heat Flux, Q 
Loo“Nean-Ten Oiff, LHTO 
Wall Resistance, Ru 
Overall H.T.C., Uo 
Water-Side H.T.C., Hi 
Vapor-Side H.T.C., Ho 


PERCENT UNCERTAINTY 

8.92 
1.23 
1.58 
1.89 
3.78 

1.85 

1.86 
7.19 
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OATft FOR the uncertainty ANALYSIS'- 


File Nam*'- UT863 

Praiiura CoAdltiori: Uacuufi tkPa) 
Uapor Tanparatura • 

Uatar Flow Rata <X) * 

Watar Ualoctty ” 


Haat Flux 

Tube-natal tharnal conPuc. 
Patwhov-Popov constant* 


2.4U6 


48.651 

58.88 

2.74 

2.183E+85 

55.3 


(Dao C> 

In/s) 
<W/n*2) 
<U/n.K) 


UNCERTAINTY ANALYSIS'. 
VARIABLE 

nass Flow Rata, Nd 
Reynolds Nunbar, Ra 
Haat Flux, q 
LoB"flean-Tan Diff, LMTD 
Uall Resistance, Ru 
Overall H.T.C., Uo 
Water-Side H.T.C., Hi 
Vapor-Slde H.T.C., Ho 


PERCENT UNCERTAINTY 

1.27 
1 .51 
1.58 

.84 
3.78 
1 .88 

1.28 
15.43 
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OATft FOR THE UNCERTAINTY ANALYSIS: 


Flit Nan«: UTOEZ 


Prtftsurc Condition: Uacuun <kFa) 


Uapor Tonperatupc * 
Uator Flow Rate <X) • 
Water Velocity ■ 
Heat Flux * 
Tube-netal thernal eonduc. « 
Patknov-Popov constant* 2.4146 


48.855 

28.88 

1.IE 

1.61554-85 

55.3 


(Deo C) 

(n/8 > 
<U/n*2) 
(U/n.K) 


UNCERTAINTY ANALYSIS: 
VARIABLE 


PERCENT uncertainty 


Mats Flow Rate, Hd 3.81 
Reynolds Number , Re 3.12 
Heat Flux, q 3.88 
LOQ-flean-Ten Oiff, LMTO .46 
Wall Resistance, Rw 3.78 
Overall H.T.C., Uo 3.12 
Water-Side H.T.C. , Hi 2.53 
Vapor-Side H.T.C. , Ho 16.48 
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DATA FOR THE UNCERTAINTY ANALYSIS: 


File Nane: UTflSI 

Preeeure Condition: Vecuun (kPa) 

Vapor Tanparature • 48.876 (Deg C) 

Water Flow Rata <*) • 88.e« 

Water Velocity • 4.27 <«/8) 

Heat Flux « 7.978E+e4 <W/n*2) 

Tuba-natal tharwal conduc. • 14.3 (W/n.K) 

Patkhov-Popov constant* 1.9382 


uncertainty ANALYSIS: 
VARIABLE 

Mass Flow Rata, tid 
Reynolds Number, Re 
Heat Flux, Q 
Log-Hean-Ten Diff, LMTO 
Wall Resistance, Rw 
Overall H.T.C., Uo 
Water-Side H.T.C., Hi 
Vapor-Side H.T.C. , Ho 


PERCENT UNCERTAINTY 

8.82 
1.24 
3.57 
3.44 
5.87 
4.95 
1 .89 
18.64 
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DATA FOR THE UNCERTAINTY ANALYSIS 


File Nine: UTQSA 

Preseurc Condiliori: Uacuun (kPe) 


Vapor Tenperature ■ 48.892 

Water Flow Rate « 88.M 

Ueter Velocity • 4.33 

Heat Flux » J.471E+9S 

Tube-netal tharnal conduc. * 14.3 


Petkhov-Popov conetent* 1.9238 


lOeo C> 

(n/s) 
<W/«‘2) 
(W/R.K> 


UNCERTAINTY ANALYSIS: 

VARIABLE PERCENT UNCERTAINTY 


tiais Flow Rate, fid 

e.8B 

Reynolds Number, Re 

1.13 

Heat Flux, 0 

2.11 

Log-f1ean-Tei», Oiff, LMTO 

1.89 

Wall Resistance, Ru 

5.87 

Overall H.T.C., Uo 

2.83 

Water-Side H.T.C., Hi 

.99 

Vapor-Side H.T.C., Ho 

8.89 
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